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Herselt, juni '85 


Beste Leden, 


We krijgen hier op de redactie nog 
dikwijls de vraag te horen :"Hoe is 
het met onze DAI ?" 

Wat betreft verkoop van nieuwe toe- 
stellen is het hier in onze lage 
landen zeer rustig. Het aantal 
winkels in Belgie, Nederland en 
Duitsland waar de DAT te koop 15, 
doet vermoeden dat er met de 
marketing toch wat mis gaat. 
Wat betreft technische 
specificaties Кап onze DAI nog 
steeds met de beste onder de 
micro's wedijveren, zelfs met zijn 
bejaarde 8080-brein. Het software- 
probleem, dat in de beginjaren zo 
nijpend was, hebben we met zijn 
allen opgelost. Zelfs in die mate, 
dat voor bepaalde markten, oa 
onderwijs, er een uitstekend aanbod 
is van goede programma's. 

De negatieve factoren hebben we 
zelf niet in de hand : een 
ongunstig prijsetiket, een totaal 
gebrek aan publiciteit en een zeer 
onduidelijke  verkoopspolitiek. 

We hopen dat de recente 
bestellingen voor het onderwijs en 
de beschikbaaheid van ELAN een 
stootje in de goede richting geven. 


Na een paar maanden van verbouwings 
werken is ons nieuw lokaal klaar 
voor gebruik : de verhuis staat 
voor de deur. Nu we heel wat meer 
ruimte hebben , kunnen we ons 
lokaal op bepaalde tijdstippen open 
stellen voor onze leden, meer 
nieuws hierover in een volgende 
uitgave. 

in dit nummer geen nieuwe software- 
pakketten, na de vakantie zullen er 
zeker een aantal titels aan de 
bibliotheek toegevoegd worden. 


Diegenen die de 
video-camera-interface wel 
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interessant, maar erg duur vonden, 
kunnen zich alvast verheugen in het 
artikel van P.De Laet in de 
volgende editie. Een echte LOW-COST 
interface. We proberen hier een 
degelijk print-ontwerp klaar te 
stomen , zodat iedereen dit project 
kan nabouwen. 


een prettige vakantie, 
tot de volgende keer, 


W.Hermans 


Evenals de Thais prefereren de 
Dai-vrouwen kleurige gewaden in 
zacht rood, violet, azuurblauw en 
gouden tinten. Daarbij worden 
camelia's en kunstig bewerkte 
kammen in het zwarte haar gedra- 
gen. De vrouwen kwamen elegant 
gekleed te voorschijn uit de afge- 
schermde binnenste vertrekken 
van hun ruime, op palen gebouw- 
de woningen, om zich te voet, per 
fiets en in vrachtwagens naar de 
feestelijkheden te laten vervoeren. 
Het festival viel dit jaar samen met 
het begin van het jaar 1347 op de 
boeddhistische kalender van de 
Dais. 





Gv 45.85 


DATnamic 85 - 28 


139 




















































































































28 









































39 VOORWOORD REDACTIE 

40 INHOUDSTAFEL - CONTENTS REDACTIE 

4] RESET - RESTART W. HERRMANN 

42 RANDOM NUMBERS (CAROLODAI) R.VANLATHEM-DEBOECK 
44 MASTERMIND in D-BASIC R.BADIAS GIBERT 
46 DCE RWC CONCEPT A.BEUCKELAERS 

150 DNA space compressing W.HERRMANN 

151  X-BUS project E.CHOPPINET . 
156 PROGRAMMING IN ASSEMBLER U.WIENKOP-DOUMONT 
160 TEKSTVERWERKER in BASIC P.OFFEREINS 

164 CONVERSION PDL C.DUFOUR 

166 CP/M TERMINAL P.JONGEN 

176 BLUENOSE R.MARCEL 

178 PROGRAMMEERTECHNIEKEN F.DRUIJFF 

182  EPROM-PROGRAMMER G,CALUWAERTS 

193 КЕШІРЕК F.DRUIJFF 





Niets uit deze uitgave mag worden verveelvoudigd en/of openbaar gemaakt door mid- 
del van druk, fotokopie, microfilm of op welke andere wijze ook, zonder voorafgaande 
schriftelijke toestemming van de uitgever. 


No part of this book may be reproduced in any form, by print, photoprint, microfilm or 
any other means without written permission from the publisher. 


Ondanks alle aan de samenstelling van detekst bestede zorg, kan noch de redactie noch 
de uitgever aansprakelijkheid aanvaarden voor eventuele schade, die zou kunnen 
voortvloeien uit enige fout, die in deze uitgave zou kunnen voorkomen. 
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RESET - RESTART : 
Dies ist ein verbessertes Frogramm, welches in DAlnamic 1981 
erschien (von Gesink). 

Bei einem versehentlichen RESET kann man mit diesem Programm 
das alte Basic-Programm wieder restaurieren. 

Dazu verlegt man den HEAF in einen ungenutzten RAáM-Bereich. 
Danach läd man das Programm "Reset-Restart" und "RUN", 

Jetzt gibt man die Position des HEAPs beim alten Programm ein. 
Nach einiger Zeit meldet sich der DAI mit den BASIC-Pointern 
zurück. die jetzt automatisch beim Drücken von SPACE? 
restauriert werden. 















































REM 

REM RESET - RESTART 

REM 

REM Idee von Assink 1981 

REM 

REM Verbessert von Willi Herrmann / D-4320 Hattingen 

REM š 

REM жж IMPINT sexx 

REM 

INPUT "Start des НЕВР s ":START:PRINT СНЕФ (12) 

IF START-O THEN START=#2EC 

DEF=START 

KOM=DEF: DIZ=0 

М): NUM= (PEEK (KOM+1) SHL 8) IOR PEEK (KOM+2) 

IF NUM>2000 OR NUM 1 THEN DEF=DEP+1: IF DEFZ#AODO GOTO 40 

ТЕ FRAC(NUM/10)=0 THEN DIZ=DIZ+1 

IF 012511 THEM KOM=KOM+1+0F:GOTO 50 

*LENHEDEF-START : KOM=DEP 

SOM) * NUM= (PE <0М%1) SHL 8) ТОР PEEK (KOM+2) 

FFFF AND МЫМ<>0 AND OF 20 THEN KOM=KOM+1+0F:GOTO 100 

: FINP=EOM 

1) TAND #F 

) THEN EOM=KOM+A+1:B=PEEK (КОМ) TAND #Е:КОМ=КОМ+В+1:60ТО0 130 
ЕЗУ=КОМ+1 
PRINT " Start HEAP : #":HEX$ (START) 




























PRINT " Laenge HEAP =:  £$"iHEX$ (LENH) 
FRINT " Start TEXT : #"#HEX$(STEXT) 
FRINT " Ende TEXT : "SHEXS$ (F INP) 


PRINT " Ende SYMBOL : #"sHEYS(ESY) 

CALLM #рара 

FOKE #FBOO,START ТАМО #FF:POKE #FBO1,START SHR 8 
POKE #F802,LENH ТАМО #FF:FOKE #FBOZ,LENH SHR 8 
FOKE #F804,STEXT ТАМО #FF:POKE #F805,STEXT SHR 8 
POKE #F806,FINP ТАМО #FF:POKE #FBO7,FINF SHR В 
260 POKE #FBOB,ESY TAND #ЕЕ:РОКЕ #F809,ESY SHR 8 

270 FOR М=#ЕВОА TO #FBIB:READ А:РОКЕ N,A:NEXT 

280 Сам #F804 

290 рата 4C5,401,89B,802,811,800,4F8, #21, 806, &FB 

300 рата SCH, #4F, #DE,#C1, 809 
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‚depending on the laws of hasard. 
Well then by definition, random numbers 
mbers ‘taken by chance’ and there- 
ot predictable for the user. 





H^ 
О 
Е 
"m 
2 


And what does the DAI do ? 





As most computers, the DAI 
generates numbers called random, but in 
fact generates nseudo-randomnumbers 
(even if they might look as real). In 
reality, the numbers are obtained from a 
mathematical formula tand therefore 
determined) and are thus far from 
random. 

To make such a series, one needs 
starting from a source-number (SEED) 
given by either the user or the computer 
itself, to give the series the desired 
random appereance. 


Normally the DAI gives automatically 
the beginning of the series at the 
moment you turn your computer on, and 
generates afterwards the source-random- 
number. At each RND-instruction, the DAI 
will generate the following number af 
the random series. 


Let's try the following routine, 
after power-supply nf the DAI : 


188 FOR IX-i TO SPRINT RND(1),: 
NEXT 


and exerute it twice. We can see on the 
screen : 


RUN 

8.345451 6.917945 9.785101 
@, 635126 8.15255 

RUN 

6.193857 @. 527697 8.651874 
8.451855 8.551174 


ог two different rows of ramdom numbers, 
containing the first 19 numbers of the 


RANDOM NUMBERS 


allow the generation af 
ws, and the routine above 
lowing 5 numbers of the 
rn off the computer and 
econds, the DAI will 
E | the random-sourcenumber 
If your DAI doesn't give the 
;er, this means it hasn't given 
sourcenumber because of а 
power-supply. 
I£ we execute the routine with X as 
the argument of RND, the computer 
generates the same numbers, but now 







itiplied by X. 
j. for RND(i@), the first numbers 
played will be : 


„17845 7.83101... 
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Writing A=RND(10) ог A-10sRND(I) gives 
the same result. 


E 


What happens then ? The routine 
will always generate the beginning 
random number. Thus with X--1, we'll 
obtain at each RUN five times the same 
number -8.571959, even without cutting 
the DAI's power-supply. This row is 
called 'repetitive series” in opposition 
with 'succeeding series', that is gene- 
rated with a positive value for X. 


Every negative value for X will 
result in a repetitive series : the 
generated number will be negative, 
different (according to the value of X), 
but will always be repeated. 


If Х--19, we'll obtain always 
2.21059. Notice that A=RND(-10) isn't 
valent to A=1@#RNDi-1). Indeed, 
—0.571059)--5.719069. Оп the 
contrary, RND(-5) gives as generated 
er -1.50534 (multiplied by 
2--2.219058) : we can see that in this 
case A=RND(-19) is equivalent to 
A=2#*RND(-51), if we neglect the rounding 
of the sixth digit. We'll understand 
later on why. 











At first sight repetitive series 
don't seem very useful in programs. 
Only the initial number might help the 
progam-execution since the following 
numbers would always result in the same 
data in the same order. 





Let's complete the initial routine 
with the following line š 


18 Y=RND(-i? 


and execute the routine twice. The DAI 
will display : 


RUN 

8.589254 &, 359846 6.488735 
8.389517 8.171452 

RUN 

6.38922 6. 359846 9.588733 
9.388517 9.171452 


Now it isn't necessairy to cut off the 
power-supply and to wait 26 seconds. 
Try the following procedure : after a 
first RUN, execute RUN 198. The result 
is : 


RUN 

9.289254 6.222846 6.488755 
8.388517: 9.171452 

RUN 192 

6.989857 @.698154 8.996478 
8.145597 9.145897 


The second RUN generates 9 random 
numbers, coming from the succeeding 
series. Notice that the series generated 
after execution of RND{X), with negative 
value (in the example above with X=-1), 
is different from the normal series 
(generated with a positive value for X). 


What happens if we replace (at line 
19) -1 by an other negative value ? The 
obtained series are different, because X 
is uneven. 
For example for Х=-2, ~4, By, -16,... 
we'll obtain the same series as with 
X=-1. But with X=-3, -6, -12, -24,... 
we'll obtain other series. Х=-5, -18, 
-20, -48,... also will offer other 
series. But there still exists a re- 
lation between the correspondent random 
numbers of two series. E.g. : all the 
numbers from the series generated with 
X--3 differ 9.5 from the numbers of the 
series from X--1, but differ 0.29 or 
9.75 from the numbers of the series from 


X--3. 


If X--1, the DAI gives : 


6.389234 0.359842 9.488753 
9.388217 6.171452 

If X-—3 : 

9.889234 6.859846 9.988755 
9.888517 9.671452 

If X=: 

9.539234 8.189848 6.738733 
8.138517 9.421452 


This could be interesting for certain 
applications. Indeed, for example in the 
game HEAD [=1] or TAILS [61 : in the 
beginning of the game with X--1, we 
obtain 5 times HEAD, with X--3, 5 times 
TAILS, and with X--5, we obtain consecu- 
tive TAILS — HEAD - TAILS - HEAD — HEAD. 


Notice also that a negative series of 
random numbers ran be generated by mul— 
tiplying the instruction RND (with a 
pasitif argument? with a negative 
number. E.g. : A--i*RND(D what isn't 
the same as A-HND(Ci) at all ! 











То avoid the automatic return to 
the random source-number when you turn 
your DAI on, you can use a routine that 
allows starting the series with the 
Nth number. Of course, the same rou- 
tine allows skipping N numbers of the 
series between two program~executions. 


28 INPUT "Give a number between 1 
and 100 "АХ 
38 FUR JX-1 TO AX: Z=RND (1): NEXT 


This routine, used by line 10, will give 
for A1-2 the number 9.488755 as random 
source-number: without line 19, the 
number 9.705101 will be used. We can 
choose the starting-number AA arbitrary. 
E.g. pointing blindly at a number of the 
telephone-directory and take the last 
two digits es value for AX, or giving 
the seconds your watch displayes,... 

But this routine is rather slow, 
especially if we use larger INPUT- 
numbers (АЙ). 

A faster and more varied routine is 
also possible : a number of 6 digits can 
be used (e.g. 6 digits nf a telephone- 
number or the complete time (hour, 
minutes and seconds}), 

Here printed the alternative routine : 


29 INPUT "Give 2 numbers (between 9 
and 999) "114,127 
36 LX-LiZXX100041 Dkr AALI AXO, 1274128 
46 BLZ-L2X30.251:04-LYX MOD 997/4 
Z6 POKE «12E,AX:PÜKE #12Е, ВХ 
POKE #159,CZ 


At the end of this article, а hint 
that might help you make your programs : 
you can restart the series of random 
numbers (like a ‘cold’ power-supply) 
if AZ=BA=C“%=255 and you execute (only) 
line 56. This way, the resulting random- 
series will always be the same, starting 
from the initial random number (SEED), 


We'll see later on how this routine 
works. But notice already that АХ must 
be between 128 and 255, while BZ and PZ 
must be smaller than 256. 
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TITLE "МА 
EM же RT 
227 lona , Fe г de 1985 
** This program is а numerical ver 





sion of the ind play 

where DAl-pe will try to hit on 

your number 

REM жж It allows to observe in grafic 
screen the process of number se- 
lection « 

REM жж The only information you can SUB” 

REM tek ply,when it shows you a num 
the total of common figure 
hath numbers,specifying if they 
are occuping the same r зесътув 
position (DEAD) or different 
(WOUNDED) „ 


Ж 
т 
Ge 
ж 
ж 

















REM 
DEF PROC ESCAPE 
LOCAL I, J 


MODE O:PRINT СНЕЖ (12) CURSOR 12,18 

PRINT "DATA ENTRY ERROR !!!";PRINT :PRINT 
FOR Ізі TO TOP:FOR J=1 TO B:PRINT ТАВ(7); 
20, D 3: NEXT 
RINT ТАВ (10+) та 
та (Ва, DH" W" 
EXT:CURSOR 0,1 

ND PROC 

EF PROC RECOVER K 
LOCAL 1 

Е ксев THEN FOR 1=0 TO 9 

106,1)=1 THEN Ti (К, D зо; END IF 
OR Іні TO Kel 

Е TIQGNOD) 
EXT 

op К 

D IF 

ND FROC 

EF ЕМ ВЕТ (К) 
JCAL 1,8, TEST 
EST#0; [= 
REPEAT IF FIRST 
TLO, =: 
ELSIF 
NOD «8 
ELSE 8=(8+1) MOD 1Q:END IF 
UNTIL 8=1 OR TEST=1 








іп 


(ei, tg" "1 TAB C26 B) 


gm z= 





NEXT 


=== 
7 








His Se en 





:8=1 

1 AND T1 (0,8) =0 THEN 

Кн: TEST=1 

“IRSTEO AND Т1(К,5)=0 THEN TESTe1: 








F JOMPAREL A,B VAR TEST 
" ADE THEN TESTsQO:END IF 
ND PROC 
EF PROC COMPAREZ A,B VAR TEST 
Е ав THEN TEST#=O;END IF 
N 











TESTER (K) 
OCAL 1,J, T, M, F,F1,M1, TEST 









271 THEN REPEAT Т=Т+1:М=0:Е=0 
OR ізі TO E:IF NODET2U,T) THEN М=М+1: 
D IF :NEXT 

FOR Ј=1 TO E:FOR 151 TO K 











поста HATO DD va CD D HE M 
1 H i 
че 
+. 


MASTERMIND 





THEM ОТОК, МСТ) =: END IF 











2000 
2001 
2002 
2004 
2005 
2011 


2014 


2015 


2018 
2020 


) THEN F=F+1: 





NEXT: NEXT 
TABEL, Da Fte] 





2(B+2,T) 
COMPARE! M,Mi, TEST 












MEB-K,ML,T 
F4B-K,F1, TEST 
MAF+B-K, MItF1, TEST 

20 OR T=TOP:END IF 

FN = TEST 

END FN 

DEF PROC CANCEL 6 

T1(B,N(G))=1 

PLOT G,N(G),O 

END PROC 

DEF PROC WRITE 

LOCAL I 

ТОР=ТОР+1 

ON ERROR GOTO "ЕК 

FOR Ізі TO В:Т2(1,ТОР)=М(1):МЕХТ 
"WR PRINT СНВ (12) 3: PRINT " 
PLAY N."iTOP;" я 
FOR Ізі TO B:PRINT МО) МЕХ 


u т" 








РКІМТ 





CURSOR 23,1: INPUT "DEADS "+ 
Та (Bri, TOP) 
CURSOR 23,0: INPUT 
T2(B*2, TOP) 

GOTO "FI 

"ER RESUME "WR 


"WOUNDEDS "s 


3 "FI END FROC 
0 DEF PROC MAREM 
05 LOCAL I 
0 FOR Ізі TO B:T1(I,N(I))=2:NEXT 





2118 
2130 
2138 
2140 
2145 
2150 
2155 
2180 
2185 
2190 
2195 
2200 


2230 


2240 
2265 
2268 

2279 
2280 
2290 


2300 
2308 


END PROC 
DEF PROC MARKF 

LOCAL 1,2 

FOR Ізі TO BEFOR J=1 TO B 

IF I<>jJ THEN T1(J,N(I))=2:END IF 
NEXT:NEXT 

END PROC 

DEF PROC МАККМЕ 

LOCAL I,J 

FOR Ізі TO B:EOR Jet TO B 

TE (2, МО) )=2: NEXT: NEXT 

END PRDC 

DEF PROC MARKREST Q,P 

LOCAL I,J,K, TEST 

FOR I-0 TO 9:TEST=0 

FOR J=Q TO P:FOR K=l TO B 

IF I=T2(K,J) THEN TEST=1:END IF 
NEXT: NEXT 

IF TEST=0 THEN FOR Kei TO B:Ti(K,1)=2: 
NEXT:END IF 

NEXT 

END PROC 


2550 
2340 
2345 


2350 


2400 
3000 
3270 
3280 
5290 
5300 
5520 
3360 
5590 
5595 
5400 


5450 


3460 
3470 
3480 
3500 
5550 


5535 
3840 


3545 


3550 
5555 
5857 
3560 
3602 
1605 
3608 


5610 
3612 
3613 
3615 
3630 
3650 
3655 
3640 
3685 
3700 
3710 
3720 
3728 
3730 
3740 
3745 
3750 




















DEF PROC MARKREM 

LOCAL I,MF 

MF=0:FOR 1=1 ТО ТОР:МЕ=МЕ+Т2(В+1,1)+ 
72 (В+2,1) : NEXT 

IF MF=B THEN MARKREST 1, TOF:FIRST=0: 
END IF 

END PROC 

DEF PROC PROCESSINF 

LOCAL I,J,K, TEST, M,F, MF 

М=Т2 (B1, TOP) :Е=Т2 (8+2, TOP) 

IF М=В THEN DONE=1 

ELSE IF М=0 AND F€ 20 THEN MARKM 
ELSIF М<20 AND F=0 THEN MARKF 

ELSIF М=0 AND F=0 THEN MAREMF 

END IF 

IF M#F-B THEN MARKREST ТОР, TOP 

ELSIF МЕСО AND FIRST=1 THEN MARKREM 


END ТЕ @ 


ТЕ TOP>10/R-1 OR M+F>=B THEN FIRSTEO 9 © 
@ 





:END IF 

MAF 1 

END IF 

END PROC 

DEF PROC PROVE K 

IF К<-В THEN IF ВЕТ(К) 20 THEN IF kel 
THEN ESCAPE 

ELSE CANCEL К-1:РКОМЕ К-1:ЕМО IF 
ELSE IF TESTER(K)=0 THEN CANCEL К: 
PROVE K 

ELSE PLOT K,N(K),1:RECQVER К+1: 
PROVE K*1:END IF :END IF 


1234567890 





4000 REM 
4001 REM жж 


MAIN PROGRAM HERA EH 


ELSE WRITE :FROCESSINF 4002 ON BREAK GOTO 4500 
IF DONE: #1 THEN PROVE i:END IF 4005 CLEAR 1000: COLORG 8 10 7 1SsCOLORT В O Q O 
END IF 4008 REPEAT MODE О:РОКЕ 475,32 


END FROC 
DEF PROC FLOT I,J,FLAG 
LOCAL KOLOR 


4010 ТОР=0: DONE=0:FIRST=1 

4015 B=4:REM NUMBER SIZE 

4020 DIM T1(H,9.0),T2(B42,0,15. 0) NOR) 

IF FLAGS 71 THEN IF T1(1,J)-0 THEN 4030 PRINT CHR$ (12): CURSOR D,17:PRINT SPC(O2); 
KOLOR=10 "MASTERMIND" 

ELSIF T1(1,J)=1 THEN KOLOR=7 015 PRINT SPC (A) f ў 

ELSE KOLOR=8:END IF 4040 CURSOR 8,10:PRINT "THINK A NUMBER WITH 

ELSE KOLOR=13:END IF "#B$ "NOT REPEATED FIGURES ..... " 

FILL 34J*6,6*1*5 5+6%1,7+5%1 KOLOR | 4045 REPEAT CURSOR 17,5 PRINT "<< PRESS ANY KEY >?" 
END PROC 4046 WAIT TIME 10:CURSOR 17,8:PRINT SFC(19): 

DEF PROC МАР К WAIT TIME 1O0:UNTIL GE Wi 

LOCAL R о MODE 28:PRINT CHR$(12)%:NET 
FOR R=0 TO 9: ОТ K,R,O:NEXT PROVE 1 
END PROC 4270 IF DONE=1 THEN PRINT CHR$(12)0:1" TOTAL OF 
DEF PROC NET THROWS :"; TOP: END IF 
LOCAL I 4380 PRINT " ANOTHER GAME  Y/N?": 
FOR 176 TO 10 4375 REPEAT HeGETC:UNTIL He 20 
DRAW 1+6%1,9 1+6%1,5%8+9 7:NEXT 4380 NS EE ) 
FOR Ізі TO В+1 4500 РОКЕ #75,95 
DRAW 2,5%1%4 61,5*1+4 7:NEXT 4600 END | 
МАР 1 

END FROC 
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Het Data Communications  Equipment- 
Real World Card concept is een sys- 
teem dat toelaat verschillende toe- 
passingen zowel op ' hardware ' als 
' software ' manier te koppelen met 
een DAI pc. 

De 8255 (General Interface Control 
-ler) van de DCE bus wordt daarbij 
gebruikt als adresserings-en trans- 
fert bouwsteen voor de verschillen- 
de simultaan op de DCE bus aange- 
sloten toepassingen. Denk bijvoor- 
beeid aan de gelijktijdige aanslui- 
ting van een floppy, een MDCR en 
eventueel een EPROM programmer of 
een analoog/digitaal convertor. 
Elke toepassing dient omdergebracht 
te worden op een kaart die even- 
eens een 8255, of minstens een 
equivalente logika bevat. Deze bij- 
komende 8255 bouwstenen krijgen de 
naam van Real World Interface Con- 
troller. 

Het is de koppeling tussen GIC en 
RIC, die het DCE-RWC concept uit- 
maakt. Dit concept wordt zowel op 
hardware als op software gebied on- 
dersteund door de DAT firmware. 
Laat ons het probleem trapsgewi ге 
ontleden. 

Verbinding GIC-RIC 

De kanalen A,B en C van de GIC wor- 
den buitengebracht op een busver- 
binding waarop alle RIC's eveneens 
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aangesloten worden. 

-Het kanaal A van de GIC wordt ge- 
bruikt als datatransfertkanaal en 
is verbonden met de databusbuffer 
van de RIC's. 

-Kanaal В van de СТС wordt gebruikt 


' als adresserings kanaal voor de 


Real World kaarten. De bits PB4 tot 
PB7 zijn op elke kaart verbonden 
via een decodeerschakeling met de 
CS ingang van de betreffende RIC, 
Deze bits bepalen het kaartadres. 
De bits PBO en РВ1 zijn ор hun 
beurt verbonden met de registerse- 
lectiebits van alle RIC's. Deze 
bits bepalen de 'device' adressen. 
In het totaal kunnen we 16 kaarten 
met elk 4 device adressen aanspre- 
ken. Door gebruik te maken van de 
bit PCO in de kaartadresdecoder kan, 
indien zulks gewensCis het aantal 
te adresseren kaarten tot 32 opge- 
voerd worden. Het bit РСО draagt 
de naam van ' bus expand ' bit. 
-De bits PCI en PC2 ten slotte zijn 
verbonden met de RD еп WR klemmen 
van de RIC's. Het schema geeft een 
overzicht van de gebruikte tech- 
niek. 

Op elke kaart kan een toepassing 
ondergebracht worden. 


Kaartadresdecoder. 


De kaartadresdecoder bestaat uit 

4 exclusieve OF poorten met 2 in- 

gangen. Een van de ingangen van de 
+ 


cs 
с 








poorten is verbonden met een van de 
4 meest beduidende bits van de B 
poort, de andere ingang kan met ееп 
schakelaartje op "0" of '1' gezet 
worden. De 5 ingangen van de NAND 
poort moeten hoog zijn, wil CS laag 
gaan. Met de 4 schakelaartjes kun- 
nen 16 combinaties verkregen wor- 
den. Bij elk van deze combinaties 
kan CS maar laag gaan voor een wel 
bepaalde code van de bits PB4 tot 
PB7. Elke kaart kan maar geselec- 
teerd worden voor een adres. Merken 
we op dat deze redenering slechts 
opgaat als PCO eveneens hoog staat. 
Als in de PCO lijn een invertor 
wordt opgenomen dan verkrijgen we 
weer 16 adressen maar nu met PCO 
laag. We kunnen dan 32 kaarten a- 
dresseren. 


Firmware ter ondersteuning van RWC. 


Bij resetten van de DAI gaat het 
opstartprogramma kijken of er appa- 
raten op de DCE bus zijn aangslo- 
ten.Índien ja dan gaat de routine 
kijken of door een van de aangeslo- 
ten kaarten, data aangeboden wordt 
Indien dit het geval is dan worden 
deze data als programma ingelezen 
en onmiddellijk  daarna uitgevoerd. 
Worden geen data aangeboden dan 
wordt na een korte wachttijd de 


initialisatie verder afgewerkt. 


Initialisatieroutine. 


| | 


| PC2-1 (data request) . 
i 


-Ordinogram. 








I да 
Z 
-n< РС7-1 


? 
^ 
⁄ 
ا‎ 
i 
| Data lezen | 


DCE 














Гу 
ESE 
| 
Starten programme. | 


-Bespreking initialisatieroutine, 
Na initialisatie van de GIC (PA еп 
PCh input - PB en PCl output) wor- 
den de bits PC3, PBI en PCO hoog 
gezet. Een van deze bits kan bij- 
voorbeeld gebruikt worden om op de 
RWC kaart een latch aan te sturen. 
Deze latch kan dan de data bevatten 
die aan het kanaal A van de GIC 
aangeboden worden. Als deze data 
moeten gelezen worden moet PC5 laag 
gaan. Gaat PC5 niet laag, dan wordt) 
na een tijd bepaald door de inhoud 
van register B, de DCE initialisa- 
tieroutine verlaten en de opstart- 
procedure verder gezet. Gaat РС5 
laag dan wordt naar de inleesrouti- 
ne gesprongen. Transmissie van de 
data gebeurt onder controle van zo- 
genoemde 'handshake signalen'. Door 
het hoogzetten van bit PC2 verwit- 
tigt de GIC het periferieapparaat 
dat data mag aangeboden worden (da- 
ta request ). DE data worden aange- 
boden (strobe) door het hoogzetten 
van PC7. Nadat de data ingelezen 
zijn wordt PC2 terug laag gezet 
(data acknowledge). Als tenslotte 
het periferieapparaat, РС7 terug 
laag zet, is het transfert van een 
byte afgelopen. Zolang PC5 laag 
blijft worden verdere data ingele- 
zen. Gaat PC5 hoog, dan wordt het 
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ingelezen programmat je gestart. 


Transfert ondersteuningsroutines 


Naast de initialisatieroutine zijn 
in het softwarepakket vam de DAT pc 
een RWC lees- en een RWC schrijf- 
routine opgenomen . Deze routines 
worden benut door de BASIC comman- 
do's INPUT en OUT, 


- input routine RWCIN (:D8E0). 


Deze routine brengt 1 byte van een 
gegeven RWC adres naar register E, 
Vooraleer deze routine kan uitge- 
voerd worden, moet D geladen worden 
met het RWC adres ( kaartadres,de- 
vice adres) 


RWCIN PUSH PSW 
PUSH H 
LXI H,:FEO3 Initial. GIC 
MVI A,:90 PA input 
DCX H Adrespoint, PC 
MVI M,:FE bus expand = 0 
MOV A,D busadres in À 
STA :FEO1 en naar PB. 
INR M bus expand = 1 
MVI M,:FB RD aktief 
LDA :FEOO Data naar А 


MOV Е,А en naar E 

MVI M,:FF  desaktiveren RD 
DCR M deselect. kaart 
POP H 

POP PSW 

RET 


- Outputroutine RWOUT (:D8C8) 


Deze routine brengt een byte vanuit 
het register E naar een bepaald RWC 
adres. Vooraleer de routine uit te 
voeren, dient D geladen te worden 
met het kaartadres, en E met de da- 
ta. 
RWOUT PUSH PSW 

PUSH H 

LXI H,:FEO1 Initial. GIC 

MVI M,:80 alles output. 


DCX H adrespointer PC 
MVI H,:FE busexpand = 0 
XCHG busadr H,data L 
SHLD :FEOO adr В, data А 
XCHG 

INR M busexpand = 1 


MVI M,:FD WR aktiveren 
MVI M,:FF WR desaktiveren 
DCR M busexpand = 0 
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POP H 
PUSH PSW 
RET 


Voorbeelden DCE-RWC. 


Om snel te kunnen werken worden 
veel gebruikte programma's soms op- 
geslagen in EPROM's. Deze program- 
ma's worden dan in geheugen geladen 
om ze te kunnen gebruiken. 
Veronderstel dat op de DCE bus een 
kaart is aangesloten waarop acht 
EPROM's van het type 2732 (AKbyte) 
kunnen ondergebracht worden. Uit 
het schema blijkt dat kanaal A van 
de RIC verbonden is met de datalij- 
nen van de EPROM's, Kanaal B en Cl 
zijn verbonden met de adreslijnen 
en de bits PCA, РС5 en PC6 tenslot- 
te zijn verbonden met de ingangen 
van een decoder 3 naar 8 (7415138) 
De uitgangen van deze decoder wor- 
den gebruikt om de EPROM's te se- 
lecteren. Onze bedoeling is om een 
LOADER te schrijven dat een wille- 
keurig adressenbereik uit deze 
EPROM's in geheugen kan lezen. 

De adressen voor de verschillende 
EPROM's op de kaart zijn samengevat 
in volgende tabel. 


EPROM O 0000 tot OFFF. 
EPROM 1 1000 tot 1FFF. 
EPROM 2 2000 tot 2ЕЕЕ, 
EPROM 3 3000 tot 3FFF. 
EPROM 4 4000 tot 4FFF. 
EPROM 5 5000 tot DEER. 
EPROM 6 6000 tot 6FFF. 
EPROM 7 7000 tot 7FFF. 


We gaan de LOADER zo schrijven dat 
als U het programma start het zich 
meldt met LOAD. Er wordt dan van U 
verwacht dat U 3 adressen intikt, 
Het eerst adres geeft het begin aan 
van het data blok dat van de EPROM 
naar het geheugen dient gebracht te 
worden. Het tweede adres is het 
eindadres van dit blok, Het derde 
adres ten slotte is het beginadres 
van de plaats waar het programma in 
het geheugen van de DAI PC wordt 
ondergebracht. Als deze drie adres- 
sen ingetikt zijn, wordt het pro- 
gramma geladen en automatisch ge- 
start, 


-Listing van de LOADER 


In het programma maken we gebruik 
van ROM routines uit de DAI-PC 
Vermits het programma dat we wensen 
te schrijven onder Utility gebruikt 
wordt,nemen we ons voor alleen rou- 
tines te gebruiken uit dit zelfde 
Utility programma ( Bank 3) 
Uitzondering op deze regel zijn de 
input-en outputroutine voor de RIC. 


Gebruikte routines. 


ADARG  :EADE 

Deze routine leest een aantal argu- 
menten (adressen) іп, overeenkom- 
stig het getal dat in het register 
C staat. Deze adressen worden in 
volgorde van inlezen op de STACK 
gezet 


LIST$ :ED2F 

Deze routine list een karakter- 
string op het scherm. Het  begin- 
adres van deze string dient in het 
HL registerpaar te staan, en de 
string dient afgesloten te worden 
met 00, 


Assemblerlisting van LOADER 


Programmaveranderlijken 


ATN EQU :1390 GIC als input 
AOUT EQU :1380 GIC als output 
RICADH EQU  :12 adres RIC PC 
RICADL  EQU s11 adres RIC PB 
RICDAT EQU  :10 adres RIC PA 
КІСІМ EQU :D8EO Leesrout. RIC 
RICOUT EQU . :D8C8 Schrijfr. RIC 
LIST$ EQU  :ED2F 

ADARG EQU :EADE 

* 


* Afdrukken LOAD 
* 


LXI  H,MES adr. MES іп HL 


Қ CALL :ED2F afdrukken MES 


* Inlezen 3 adressen 
* 


MWI С,3 vensen 3 айг. 


CALL ADARG te lezen, 
* 


* Berekening lengte te lezen blok 
* en naar BC brengen 
* 


DCE 


BERLEN 


* 


POP H Load adr. RAM 
POP B Eindadres blok 
POP D Beginadr. blok 
SHLD STARTAD Save Startadr. 
MOV A,C 

SUB E C-E 

MOV C,A naar C 

MOV A,B 

SBB D B-D-carry 

MOV В,А naar B 


* Lezen van blok uit EPROM 
* 


RDBLK 


* 


PUSH D Adr. stack 
CALL OUTPUT 


* Uitgeven LSB van adres EPROM. 


* 
ADLOUT 


* 


POP D 

MOV A,D 
PUSH D 

MOV E‚A 
MVI RICADL 


CALL КІСООТ 


я Uitgeven MSB van adres EPROM. 


ADHOUT 


* 


POP D 
МОУ  A,E 
PUSH D 
MOV Е,А 


MVI — D,RICADH 
CALL RICOUT 


* Lezen van databyte. 


* 
DATIN 


* 


CALL INPUT 
MVI — D,RICDAT 
CALL ВІСІМ 
MOV M,A 


* Aanpasen adrespointers 
* Testen of laatste byte ? 
* 


PNTRS 


POP D 

INX H 

INX D 
PUSH D 

MOV A,C 
ОА В 

JNZ  ADLOUT 
POP D 


я Starten gelezen programma. 


* 


LHLD STARTAD 
PCHL 


Hulproutines 
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INPUT LXI Н,АТ 
CALL RICOU 
RET 

OUTPUT LXI H,AOU 
CALL  RICOUT 
RET 














* 


* Data en pointers 
* 

STARTAD RES 2 
MES DATA :0C 


ASC ‘LOAD! 
DATA 00 
END 
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DNA SPACE COMPRESSING 














Willi Herrmann MAI 1985 
Richard-Dehmel -Str,4 
D-43520 Hattingen 


Textkomprimierung beim DNA-Assembler : 





In einem Source-Text eines DNA-Assembler-Files sind sehr viele 
überflüssige SFC (са. 20-40%). 
Dieses Programm lüscht alle überflüssigen SFC. 


Start : Load Assembler 

Load Assembler~Source 

BASIC 

Load 'TEXTEOMPR. DNA-Assembler” 

Run (Frogramm nicht unterbrechen !) 
“SPACE: drücken 

Save Assembler-Source 


NUE HR 


REM 
REM Textkomprimierer fuer DNA-Assembler 
REM 

REM Willi Herrmann 

REM Richard-Dehmel-Str.4 
REM D-4320 Hattingen 

REM 

REM xxx IMP INT жж 

REM 

CLEAR 256 

к (#12358) 236 РЕЕК (#1230) 
SOHLZAS)-2S568PEEK (#1246) 

D 

1 (Ml) : В=РЕЕК (M+1) 

IF PEER (M-1)=#8D AND A=#AA THEM FLAG=1 

IF A=#A7 THEN FLAG=-FLAG+1 

IF FLAG=O AND A=#AO AND B=#A0 THEN МеМ%1:6070 140 
PRINT CHRS(A TAND #7Е); 

PORE М, PEEK (M)  МеМ+ 1: М=М+1 

IF А=#80 THEM PRINT Х%ТАВ(6) ҒШАб-0:2-2-1: ХЕХ+1 
IF 220 GOTO 140 

PRINT :PRINT "The Source is"iM-Ni" Bytes shorter" 
CALLM #D&DA:CALLM 12000 


MO CH £ iY B3 к= 


оф 
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X-BUS PROJECT = 


translation by Georges COCHIN 


СНОРРТМЕТ Eric Leuville 
27 rue Louis Pasteur 

91310 LEUVILLE SUR ORGE 

FRANCE 

Tel : (6) 084 60 87 


, April 2Oth 1985 


Dear DAI friend 


I thank you for taking interest in the EXTENSION-BUS 
card published in issue No 26 of DAInamic. 


The delivery time of the unequipped card made with metallized 
holes is 6 weeks after receipt of your order. 


The price in french francs is : 


To fit up the card , you should get at hand : 
a multimeter , 
if possible , an oscilloscope, 
a scraper to cut off 3 tracks on the DAI main card, 
a good soldering iron ( with a very thin pane ) 
and wrapping wire . 


To put on the card ,it is advisable to proceed carefully 
on a step by step basis as follows : 
XX* Soldering of all components 
(resistors,capacitors ,diods,transistors...) 
(connector X-BUS, socket of the integrated circuits. 
ЖЖЖ Proceed to the following modifications on the main card = 
1. Cut off the track which goes to track No 47 of the X-BUS 
2. Cut off tracks going to tracks No 22 and 21 of the X-BUS 
and link up these strips by passing the X-BUS 
5. Connect 1С4 pin © to pin 47 on X-BUS (FOXX) 
4. Connect 1045 pin 10 to pin 18 оп X-BUS (F9XX) 
5. Connect ICAS ріп 11 to pin 22 ап  X-BUS (FAXX) 
5. Connect ІСІО7 pin 1 to pin 21 on X-BUS (reset) 
ЖЖЖ Check all modifications with an ohmeter. 
ЖЖЖ Switch power on the DAI with MEMOCOM deconnected 
*** Check + SV on each socket of ІС 
XXX Fut carefully on and on the right side the following IC : 
- СІ 5 74COO !!! CMOS or HCMOS 
= CI 6 74042 !!! CMOS or HCMOS 
— CI 3 your EPROM DCR. 
1311 < deconnect the main power ) !!!! 
ЖЖЖ Get into UT.Display adresses ЕООО F7FF 
The ROM content is displayed, if such is not the case,you 
probably gave a wrong adress to the decoder (SWITCH ñ — 
E — А11 open ) 
If you have an oscilloscope ,you are able 
to display (FOOO-F7FF) 
CI 44 pin 9 (main card) 
pin 47 on X-BUS 
CI 6 pin 12 
CI 6 pin 14 
Xxx Connect your MEMOCOM , апа CALLM #F2F2 
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If you are using your DCR КОМ , the compatibility is complete 
as far as software is concerned. 

At this stage you cannot switch your EPROM with the 

dip switches. 

POKES 296,0 and now change the switches position and display 
adresses FOOO-F7FF. 

Therefore you can change the memory bank but you loose the 
DCR commands. 


It is now possible to introduce the IC 4 INSB154N. 


The switches are useful only to initialize the good memory bank 
on a cold start , after that the 8154 is overriding and sets 
the pins of B port in a low impedance output state. 
Conventionnaly ,always IC 3 with А11 = SV 
The DCR ROM has been completely written again with some 
extra commands 

( RBP restore basic pointer ) 

( SBF save basic pointer ) 

С IMF printer initialization // ) 

ОТЕ) 
Upon initialization 8154 overrides the commands 

(А, В, А11 at low impedance ) 


The new DCR ROM allows all the functions 


(LOOK) (LAST) (VERIFY) (CHECK) (LOAD) (SAVE) (CASx) (DCRx) 
There is an eventuality to test if the DCR eprom is present 
in some programs with a Byte check in the memory bank FOOO-F7FF. 
This byte might be different now. 


As far as the eprom programmer is concerned, I can provide you 
the corresponding software for EFROMs in machine language that 
you*11 run with CALLM #7000 
Answer the Menu : 
L reading in #4000 — #4FFF 
V checking 
T blankness test 
F programming with data in #4000 
F end : back to monitorinq 
Re careful with the programming voltage (+21V or +25V) 
This programming voltage should be applied at the 
proper time ( youll be warn by the software ) and should 
be cancelled as soon as the program gives you back the 
controls.You should use а +20V power unit, the 1М137 
(Т1) controller and the (P1) potentiometer to allow you 
to get 21V or 25У. (A preliminary test without eprom is 
advisable) | 


Concerning the real time clock,the software is now under design. 
The IC 9 (MM58174A) is adressed from РАСО to FAFF. Please refer 
to manufacturer's instruction leaflet.The QUARTZ is 22.768 kHz 
(watchmakers standard). 


The clock goes on working even if the main power is switched 
off,I rely upon you to work out some new interesting applications. 


X-BUS PROJECT 


A word about the 2K RAM use. 

in order to write in the FOOO-F7FF memory space , you should 
FOKE $10,409? ta avoid a STACK OVERFLOW and carefully check that 
SWITCH ? WR? be closed , then POKE %10,0. 

When you open SWITCH ° МК” the RAM content is protected in case 
Of power failure. This RAM is useful to run some programs 


you want to Check before before writing them in ROM , not to 
store DATA. 


To store variables the INBIS4N RAM should be used, 


А11 the software programs related to this circuit board were 
worked out by my friend Claude FICARD. 


You'll find more informations about this circuit board in 
the next issues of DAInamic. 


Friendly yours , 


CHOPPINET Eric 













LISTE DES COMPOSANTS 


Semi-conducteurs 
01,02,03 ...... 


Résistances 





R11,R12,R13 .. 47 КО 
В14.......... 1k 


Condensateurs Divers 
C1,C2...1 MF — 10 (Та) 


C3,C4...10 nF 
Cb. cuc 1000 uF — 16 V 


Support à insertion nulle (28 br.) 
Inter DIL (4 inters) 
Connecteur 50 broches 
(2 x 25; pas 2,54) 
Quartz 32,768 kHz 
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National 
Semiconductor 


INS8154 N-Channel 128-by-8 
RAM Input/Output (RAM VO) 


General Description 


The RAM Input/Output Chip is ап LSI device which 
provides random access memory and peripheral inter- 
facing for microcomputer systems. The RAM portion 
contains 1024 bits of static RAM organized as 128х8. 
The МО portion consists of two peripheral ports of 
eight bits each. Each of the МО pins in the two ports 
may be defined as an input or an output 10 provide 
maximum flexibility. Each port may be read from or 
written to in a parallel (8-bit byte) mode. To improve 
efficiency and simplify programming in control-based 
applications, a single bit of 1/O in either port may be 
set, cleared or read with а single microprocessor instruc- 
tion. In addition to basic 1/0, one of the ports, port A, 
may be programmed to operate in several types of 
strobed mode with handshake. Suobed mode together 
with optional interrupt operation permit both high 
speed parallel data transfers and interface to a wide 
variety of peripherals with no external logic. 




























ADDRESS 
BUS 


DATA 
BUS 
CONTROL 
BUS 





PORT À BUS 


“PORT B BUS 


TEE E) 


Bit 


Features 
s 128x8 RAM 


a Single +5-volt power supply 

" Low power dissipation 

» Fully static operation 

а Completely TTL compatible 

= Two В-Би programmable 1/O ports 

= |/O port A has TRI-STATES capability 

a Handshake controls for strobed mode of operation 
а Single bit 1/О operations with single instruction 
а Reduces system package count 

e Direct interface with SC/MP 

» independent operation of RAM and 1/O 

s MICROBUSTM* Compatible 


Pin Configuration 
















































Ge (34) (16-19, 21-24) 
CS) р РА? -РАО 
;s 133) OUTPUT 
Wid DEFINITION 
REGISTER 
NOS Ty à 
NRDS—= 
1М58154 
MODE 
DEFINITION | (26) 
REGISTER & INTR 
HANDSHAKE 
LOGIC 
UI 
082-090 output 
BUFFER DEFINITION 
REGISTER 
(39, 1-7} 
Pin Names 
DB). око DATA BUS 
ADE. ADO ADDRESS INPUT _ 
NAST RESETINPUT O 
BIT 128 ХВ RAM мло MiMORYAO SELECT 
OPERATIONS C50 csi | eur SELEETS 
HDS 1 WRITE STROBE 
ар) н 
= ver ША READ STROBE d 
d - PAD 
13226) ene Far Poo 
AUG. ADS 
1 INTIRRUPT REGUIST 
ur ER OR ERRORI 
NOTE: APPLICABLE PINOUT NUMBERS Ver vous 
ARE INCLUDED WITHIN ET 0 VOLTS 


PARENTHESES. 
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L'horloge « temps réel » 


La fonction horloge «temps 
réel» est réalisée à l'aide d'un 
circuit spécialisé (58174А). Ce 
< compteur de temps > a déjà fait 
l'objet d'une description. dans 
Micro-Systémes (n° 21, p. 128). 
Rappelons toutefois, comme le 
montre la figure 4, que ce circuit 
contient, dans ses seize registres 
internes, tous les paramétres du 
«temps», des dixièmes de sc- 
conde jusqu'aux mois. Il ne per- 
met cependant pas la lecture de 
l'année, bien que celle-ci figure 
dans un registre interne pour le 
calcul de la durée du mois de 
février. 

L'oscillateur interne, piloté 
par un quartz externe de 
32,768 kHz (fréquence standard 
en horlogerie électronique : 215), 
synchronise une suite de divi- 
Seurs et de compteurs consti- 
tuant l'ensemble des seize regis- 
tres que nous venons d'évoquer. 
La fonction et l'adresse de cha- 
cun de ces registres sont détaillés 
tableau 6. Le brochage de ce cir- 
cuit d'horloge est présenté fi- 
gure 5 a. 

La sauvegarde des données de 
ce boîtier peut être effectuée soit 
par une batterie rechargeable 
placée sur la carte mère, soit par 
une pile ordinaire de 4,5 V. 
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ther, while signs and figures can be formed by more abstract considerations. 





Consequently, it is necessary to convert every number into the 
corresponding binary equivalent. Sequences of commands such as far instance a 
кет PRINT statement are for a computer only an abstract concept with which he 
B. Doumont cannot start anvthing at all. It is only after the proper conversion and a 
later processing by an operation system that the statement becomes under- 
standable hy the computer, Іп order to understand better this conversion and 
the later work with numbers, it is meaningful now to discuss the conversions. 


Original : Ger 
Translation з 





Е Ç А ч ді In the decimal system, every place corresponds to а definite 
d ith small assembler subroutines turn up frequently in the d | : ystem, d 
Club NEUES реа the programs which are offered for sale are very often valence", which is to be multiplied by the figure found at that place. The 
E ео written in machine language dr use subroutines in Assembler. sum of all products sa obtained gives finally the value of the number. This 
but ai these routines are most of the time the most important part of valence gives the other significance of the base : the base, when raised to 
= He oes ram E is Кетерге a pity when one doesnot understand that kind of the power of the place, is equal to the valence, This looks very compli- 
A OG Rmi ng Besides programmers which are intensely engaged in machine tated, but is in fact very simple. Let us give an example з 
Gë -amming are often compassionately laughed at : their programming 
language ваа 200077 ` H Take the number 1243, The indexation of the figures starts at the last 
language being not Up—to-date, есс.... figure to the right , which index is taken as 0. Proceeding to the left 
In order to remove these prejudices, and also in order to provide with increasing index, (4) gets index 1, (2) gets index 2, and (Dgets index 
os we ase oe Së de GE the many embodied functions of the DAI, I have 3. As indicated above, the valences are obtained by raising the base to the 
some " ie 2 LIE G t à Ç Е E ed ç за 1 x 
decided to write this series. Besides, 1 also want to show that this kind of powers of the indexes, 
3 Ais Е - i + so difficult as 
rogramming is not only very fast, but at the same time по us ges at 55 - ger 
Е “alway ars and, last but not least, that it can be very exciting. that da 1972 1912 ши 1919 
опе always hears and, 5 : ar 1999 Loo 10 1 
j a ipti Е instructions can be initiated, а few . TA | 
ER. die, СО O MR es it да necessary to go a little We then multiply these valences with the corresponding figures and sum up the 
% xy - с i roducts : 
into number systems and into conversion methode. P 
110009 + 2x100 + 410 + Fel = 1244 
9, GENERAL THEORETICAL NOTIONS. At this point, you will certainly ask yourself : nothing special in there, I 
7 қ Ааа атары methodE knew that before... Nevertheless, this method has also to be applied іп 
9,1. Number systems and conversio EER another number system, for instance in order to find out which value a number 
In DAI BASIC there exist numbers in two different numbersystems : on expressed in the hexadecimal system will have in the decimal system. 
d d the "normal" number with base 19 and on the other hand the А Е ) Я ) eh | 
5 - т ar ones are identified by means of a "#" placed Take as an example the number : _#ВЕЕР which represents he highest 
2. Hexadecimal means that the number is represented in base 16. screen RAM address, If we calculate this number according to the above 


method, we obtain : 

The base of a number system indicates how many relevant figures are 94 ñ " 7 
at disposal in order to represent a given number. It is weli known that in the 2. 2 He У Емар S Ton 
decimal system, with which we usually calculate, there are indeed 19 possible rk aps 520 : SN 5 л : 
figures го E E 1n the hexadecimal system there must accordingly exist 398 a 25 s 


H 








н 





49155 


u 








5 fi a fi Ў bei Я i er than 6,...,9, letters A,...,F have Y | | | 
16 figure Na figures being known oth 1 А s?a Vola Brice ee BASE ЕЛЬ 
been borrowed, во that the figures i y y g 

9 ilz. 





4,5,5,7,0, 9, A.B, C, D,E,F FRINTSBFEF 
EA Su i ag PRINT always expresses numbers in decimal, and therefore converts and gives 
1 thë number in the decimal system. 


Я 
are at disposa 


In the computer there existe in addition another important number 





А A £ al! 1 | Now let us consider the opposite case : to convert a decimal number into 
y : nne a t it is the most important one, after all. It i | i 
аа PE е Ко de Se two figures : 6 and l. , another number system, The method used 15 also very easy. One divides the 
Ig the Dinar Systeme неке ки SET ا‎ decimal number by the required baselinteger division), and one puts the rest 
1 BASIC one has mostly to deal with number representation in the aside, The process is continued using the quotient until the result of the 
n BASIC one 35 stly to dea : RDA FOR RE Pot па ; ; 
decimal прие Computers, howev are not generally very concerned with that division gives zero. If one then writes the sucesive reste in opposite 
al system. C ters, ver, аға ge y 








number system. Internally, they an only differentiate between two states sequence, one obtains the number converted to the desired base. 

i system. Internally, 11у 

instance voltage igh ai с ta З these two states, areater 

for instance voltage high and voltage low. From t tes, 9 , | ad ' | | N | , 
Suma era сап be formed Бу means of series of figures placed behind one апо- Let us also here take an example : converting back the above number 49135 
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into the hexadecimal system. 


49128 / 16 3070 + 15 ің = HF 
5978 / 16 = 191 + 14 14 = ЖЕ 
191 / 16 = it + 15 15 = #F 
ii / 16 = в + 11 11 = #B 


Result : #BFEF as expected. 


The conversion into the binary system works out the same way, except that 
the base is here equal to 2. Let us take 97 as an example : 


97 / 2-7 48 + 1 
48 / 2= 24 + 9 
24 / 25 12 + @ 
12 4 2 а + 9 
6 4 22 5 + o 
$ / а i ++ d 
1 / 2-7 o + 1 
Result : (97) decimal = (1100001) binary 


Now, one question can be asked : it was said above that the binary 
system was the most important one for the computer : why then have we gat to 
be burdened by another number system, that is, the hexadecimal system? The 
answer to this is very simple. As one has noted from the quoted examples, 
numbers expressed in the binary system are unsuitable for human beings : 
rather long binary numbers already appear when dealing with rather Small de- 
cimal numbers. In order to remove this shortcoming, the binary figures 
have been grouped four by four into hexadecimal figures. The number becomes 
four times shorter and easier to survey. For instance, the above number 
becomes : 

iie 9001 

#é H за that (97) decimal = #41 
For this reason, in the DAI Utility, the contents of registers and memories 
are given in hexadecimal form. Computing іп hexdecimal (or in binary) has 
another advantage. Through the development of the memory in the computer and 
its dependance on the binary system, computing in the hexadecimal and binary 
system gives rise to values which are better rounded off than in the decimal 
system, Consider for instance the following example : the ammount of memory 
is always expressed in kilobytes, or in K's, One К “1924 Bytes. 1024-2%10-%400 
etc... 


9.2 Units of information. 


As was already briefly announced above, a binary digit is the 
smallest unit of information: she is designated by the word "bit". As one can 
da very little with one bit, 8 bits were put together. This gives rise to one 
"byte", According to the above mentionned computing method, the greatest 
number to be represented by means of 8 bits is 255 : 


1*2174182T6-1 £205 ED PAR leit HAT QTL RRTIFIN 7 7^ =255 


There are in fact in total 256 possibilities, as the zero also has to be 
considered, 


The next greater unit is a 16 bit word. Here we have 16 bits at disposal in 
order to represent а number, and the greatest is correspondingly 2116- 


EER 


PROGRAMMING IN ASSEMBLER 


There are of course in machine language also negative values. These numbers 
will 5e considered in the section corresponding to substraction. 


9.5 Assemblers and their functions. 


As you probably have already noted from the software library af the 
Club, DAlnamic Germany offers an Assembler of its own (АНТ). Similar products 
can also be obtained from DAInamic Helgium under the names DNA and SFL. These 
products distinguish themselves in fact by their user friendliness for 
input, expressions, etc. Anyway,they all fulfill equally well their duty. 


Ав was already explained above, all instructions must be converted 
in binary form. As writing an instruction under that form makes it very uneasy 
to survey - one must identify the number with an instruction - an "as- 
sembler"language for machine instructions has been introduced. The assem- 
bler has the task of conveying an understandable and readable instruction to 
these binary figures. Because the instruction sets of the current micro- 
processors vary very much from one to another, and because the manufac- 
turers introduce different assembler languages, there exists for each known 
processor a proper assembler language with very different instructions. 


This was one of the reasons to introduce the so-called high level 
languages. They not only facilitate the processing of programs, but they also 
are to a great extent portable. 45 result, a BASIC program that was for 
instance written on an APPLE without going into the specific characteristics 
of that computer can relatively easily be transfered on another Computer, 


Now back to the assembler language. One distinguishes here two kinds 
of programs : 


1)-SOURCE code : the source of a program contains the readable text that 
you have produced when working out the program. That text can as in the BASIC 
Editor be corrected, etc... However, that text cannot be run directly, It must 
first be assembled. 


2)-DBJECT code : this is then the assembled source text and it can be run 
directly. The object code has on the source code the advantage of being 3 to 4 
times shorter, but it can only be corrected with difficulty, as the instruc- 
tions now appear under their translated form. You can, for fun, call the Ші 
lity of the DAI and from there, have a look on the range #С000 to #EFFF. ñ 24 
kilobytes object code is to be found here. 


The instructions of the source code are also called "mnemonics" as 
they serve as "supports of the memory" for the corresponding machine 


instructions. 


An assembler has also, next to the translation function, other 
important tasks, but these will be dealt with at the proper place. 


{ta be continued) 
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18 

60000 
60091 
40005 
60006 
60007 
69011 
50012 
60013 
50014 
69015 
60016 
60017 
40018 
60019 
50020 
60025 
50050 


80059 
69060 
40041 
60062 
690053 
60064 
60065 
60066 
60068 
60070 
40072 
60074 
66075 
60076 


60499 
60500 
605106 
60511 


50899 
50909 
60905 
40910 
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REM , TEKSTVERWERK INGSPROGRAMMA 

REM , 

REM ,Hierbij de listing van sen tekstverwerkings- 

REM ,programma ter plaatsing in DAINAMIC.De toelich- 
REM ,ting op de regels 43024 en volgende samen met 

REM „де keuzemogelijkheden op de regels 60006 t/m 50019 
REM ,spreken voor zichzelf.De printer (in mijn geval 
REM ,de microline 89) is aangesloten op de RS 232 uit- 
REM ‚gang van de DAL. Deze tekst is geproduceerd door 
REM ,achtereenvolgens de programma's 1,2 en 7 te ge- 
REM ,bruiken.De listing demonstreert hoe de tekst is 
REM ,opgeborgen in REM-statments.Statement 16 bevat de 
REM ,commandoregel,die ten behoeve van de listing de 
REM ,printer heeft geplaatst in de toestand 16.5 charac- 
REM ,ters per inch. 


REM , 
REM ,R.P.üffereins, Wilmskamp 13, Hengelo (0), Nederland 
REM ,:CS 


REM ззвнннювеюнинее TEKSTVERWERKING 20/12/84 titties 
POKE #29B,236: PRINT CHR$(12):PDKE #29B, 255 

POKE #131,1:COLORT 15 © 0 O:NL=@:BG=59999:GOSUB 61816 

PRINT "Aantal aanwezige tekstregels = "NL 

PRINT "Type een van de volgende commandonummers." 

PRINT "1 EDIT. Tekstreagels naar editbuffer." 

PRINT "2 STORE.Editbufferregels naar tekstgeheugen." 

PRINT "3 DELETE.Verwijder regels uit tekstgeheugen." 

PRINT "4 DELETE & STORE." 

PRINT "5 REPLACE, Verplaats tekstregels." 

PRINT "6 PRINT tekstgeheugen MET regelnummers." 

PRINT "7 PRINT tekstgeheugen ZONDER regelnummers." 

PRINT "8 PRINT rechtstreeks regels." 

PRINT "9 Toelichting." 

INPUT PRGNR!:PRINT 

ON PRGNR! GOTO 60040, 61100, 41900, 62300, 52100, 61200, 61205, 62500, 63020 
PRINT "Verkeerd commandonummer ‚opnieuw typen."sGOTO 50020 


REM ——— eo EDIT 

POKE #29B, 236: CLEAR 6008: РОКЕ #29B, 255: CALLM #E280: POKE 8131,1 
ADE=2+PEEK (#29B) +256*PEEK (#290) 

INPUT "Type beginnummer,eindnummer " $; BG, ED 

IF ED>S9999 OR BG>ED THEN PRINT "Fout nummer": GOTO 68042 
ADT=PEEK (#29F)+256%PEEK (#280) 

GOSUB 60066:CALLM #E1FB:REM -------ЕМО 
МВ=256*РЕЕК (ADT +1) +РЕЕК (ADT+2) 

IF NROED THEN RETURN 

IF NRYBG THEN GOTO 40074 

FOR 122 TÜ PEEK(ADT+4) :POKE ADE+I-2,PEEK (ADT+4+I):NEXT I 
ADE=ADE+PEEK (ADT+4) -1:РОКЕ ADE, 13: ADE=ADE+1 

POKE #A4, PEEK (VARPTR (ADE) +3) : POKE #05, PEEK (VARPTR (ADE) +2) 
ADT=ADT+1+PEEK (ADT) : GOTO 60066 


REM ---------------6ив PRINTERSTART 

PRINT CHR$ (30) 5 

PRINT СНЯ$ (27) $ PRINT CHR$(55) js PRINT CHRS (27); 
PRINT CHRS (54) $ : RETURN 


REM ee Eg ння SUB NUMMERS TOEVDEBEN 

А=і ЕМ (STRE (МЕ) } 

FOR Ізі TO 8-5 

CR'SASC (RIGHTS (GTRS (NR) , A-I)) POKE ADE+I,CR':NEXT I 
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60720 
60930 
60940 


61999 
61100 
61106 
61107 
51108 
61119 
51120 
61130 
61140 1 
61150 


61199 
51200 
61205 
61296 
61208 
61210 
61215 
61220 
61225 
61231 
61232 
61233 
61235 
61249 
61243 1 
61245 1 
61250 
61255 
51260 


61599 
61500 
61405 
61619 
61620 
61630 
61640 
61858 
61660 
61879 
61680 
81685 
61670 


61699 
61799 
61710 
51720 
61730 


61816 
61820 
61836 
61840 
61850 


-- TEKSTVERWERKER 


POKE ADE+A-2,92:POKE ADE+A-1, 69 
POKE ADE+A,77:POKE ADE+A+1, 44 
МА=МА+1: ADE=ADE+A+ 1: RETURN 


REM ———— A STORE 

POKE #29B,236: INPUT “Type beginnummer "3NR: BG=NR: PRINT 

IF NLENR THEN NR=NL+1: BO=NR 

GOSUB 61119:NR=NR-1:G0SUB 61816 

PRINT "Starten met RUN":POKE $135,2:END 

Ni=PEEK (#298) +256#РЕЕК (#290) +21 

ED-PEEK (#44) +256#РЕЕК (#45) -1: ADESED: BOSUB 60700 

FOR AD=Ni ТО ED:CR!=PEEK (AD): ADE=ADE+1:POKE ADE,CR!:POKE AD, 45 
IF CR!z13.0 AND AD<ED THEN GOSUB 80900 

NEXT AD:POKE ED, 13: ADE=ADE+1: RETURN 


REM -------------------------- PRINT MET/ZDNDER NUMMERS 
FLG1's1.6 
INPUT "Type beginnummer,eindnummer ";BB,ED 
IF ED<BG OR Ер>59999.0 THEN PRINT "Fout nummer, type opnieuw"sBDTO 61205 
PRINT :PRINT :РОКЕ #131, 0: GOSUB 40590: C1=125:C2=125 
ADT=PEEK (#29F) +256%РЕЕК (#240) 
NRz256*PEEK (ADT+1) +PEEK (ADT+2) 
IF NR>ED THEN FLG1!=0.@:POKE #131, 1:END 
IF NR<BG THEN GOTO 61250 
IF FLG1i!=0.@ THEN FOR 150 TO 7: РАТМТ CHRS(32)5sNEXT I 
IF FLG1!=0.@ AND PEEK (ADT+4)=58 THEN GOSUB 61400:G0TO 61260 
IF FLG1!=1.0 THEN GOSUB 61700 
IF PEEK(ADT+4)=1 THEN GOTO 61255 
FOR 122 TO PEEK (ADT+4): CR! xPEEK (ADT+4+1) 
IF CR!=91 THEN СА!=С1 
IF CR!=93.@ THEN СВ!=С2 
PRINT CHR$(CR!)::NEXT I 
PRINT CHR$(13)::NRA-O 
ADT=ADT+1+PEEK (ADT) : ВОТО 61215 


REM Saas SUB COMMANDODETECTIE 

A=PEEK (ADT+7) : B=PEEK (ADT+8) 

C=100# (B-48) +10% (PEEK (ADT+9) -48) +РЕЕК (ADT+10) -48 

IF 467 AND B=76 THEN PRINT CHR$ (31); 

IF A=67.@ AND B-77.0 THEN PRINT СНАФ (30); 

IF A=67.0 AND B-83.0 THEN PRINT СНА (29); 

IF A=76.0 AND B=76.0 THEN PRINT CHR$ (27); PRINT CHR$ (65) 3 
IF 4=76.0 AND B-83.0 THEN PRINT CHR$ (27); PRINT CHR$ (66); 
IF A=83.9 AND B-76.0 THEN PRINT CHR$ (27); :РАТМТ CHR$ (54) 5 
IF A=83.0 AND B=83.0 THEN PRINT CHR$ (27); PRINT CHRS (56); 
IF A=91.@ AND С<258.0 THEN С1ЕС 

IF 4593 AND C<256 THEN C2=C 

RETURN 


REM ———— SUB NUMMERPRINT 

FOR I=LEN(STR$(NR))-1.@ TO 3 STEP -i 

PRINT CHR$(ASC(RIBHT$ (ТАФ (NR), D) ) 8: NEXT. I 

FOR I-LEN(STRS(NR)) TO 1@:PRINT СНА$ (52) ;:МЕХТ I 
RETURN 


REM ——————— SUB NUMMEREN IN TEKSTGEHEUGEN 
ADT=PEEK (#29Е) +255®РЕЕК (#280) 

FOR Іші TO 19990: A=2544PEEK(ADT+1) +PEEK (ADT+2) 
IF ACBG THEN NL=A:ADT=ADTT+1+PEEK (ADT) sNEXT I 
IF ñ=69999 THEN RETURN 
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21868 
61876 
61880 


61899 
61909 
61905 
61910 
61915 
61920 
61925 
81939 
61940 ` 
81950 1 
81989 
819835 
81990 


62099 
62100 
82101 
82192 
62105 
82119 
82150 
62135 
52145 
62150 
62153 
82154 
82155 
62156 
62160 
62170 
62180 


&2299 
52300 
82510 
62320 
52330 
62540 
52350 


82500 
62510 
62515 
82520 
62330 


85019 
63020 
63024 
65026 
83928 
83038 
63032 
63033 
85034 
43035 
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== TEKSTVERWERKER 


POKE ADT+2,NR IAND #FF 
РОКЕ ADT+1,NR SHR 8: NR=NR+1 
ADT=ADT+1+PEEK (АВТ): NEXT I 


REM ---------------------------- DELETE 
CLEAR 6009: РОКЕ #29B, 236 
B6=59999: DOUD 51816 
INPUT "Туре beginnummer , eindnummer "3 NA, NB: PRINT 
IF NBONL THEN МВ=М +1 
IF NA?NB THEN PRINT “Fout nummer":GOTO 51910 
МАМА: BG=NB+1:G0SUB 61816 
ADE=PEEK (#298) +256 %РЕЕК (#29C) +21 
FOR NR=NA TO NB:B=LEN(STR$(NR)) 
FOR ІчВ-і TO 3 STEP -1:РОКЕ ADE, ASC (RIGHTS (STRS (NR). 127 
ADE=ADE+1:NEXT I:POKE ADE, 13: ADESADET1:NEXT NR 
PRINT “Starten met RUN" 
POKE #29B,255:CALLM #Е280:РОКЕ #135, 2:POKE #131, 1:END 


REM asi REPLACE 

POKE #29B,236:CLEAR &000:PDKE #29B, 255: CALLM #Е289:РОКЕ #29B, 256 
POKE #131, 1: ADE=21+PEEK (#29B) +256%PEEK (#290) 
ADT=PEEK (#29Е) +256%РЕЕК (#200) 

86:59999: GOSUB 51815 

INPUT "Туре beginnummer,eindnummer,nieuw beginnummer "3 МА, КВ, МС 

IF NA>NB OR NB>NL OR NC>NL THEN PRINT " Nummer te groot":GOTO 62110 
IF NC<2#NB-NA+2 AND NCO2*NA-NB-1 THEN PRINT “Verkeerd nummer":GOTO 62110 
ADT=PEEK (#29F)+256#PEEK (#2A0) 

Вб-МА: ED=NB: GOSUB 60646 

IF NCXNA THEN BG=NC:NR=NC+NB~NA+1:GOSUB 61816 

IF NCXNA THEN NR=NB+1:BG=2*NB-NA+2:GOSUB 41816: NR=NC 

ТЕ ММВ THEN BG=NB+1:NR=NA:GOSUB 61816 

ТЕ NCANB THEN BGzNC-NB*NA-1: NR=NC: GOSUB 51816: МЕ<МС-МВ+МА-1 

GOSUB 81110 

IF МО<МА THEN BG6=NB+1: ED=2#NB~NA+1 : NA=BG: NB=ED 

GOTO 41940 


КЕМ و ت ن ج‎ DELETE & STORE 

POKE #29B, 236: INPUT "Туре beginnummer , eindnummer " ; NA, NB 

IF М.<МА OR МВ<МА THEN PRINT “Fout nummer, type opnieuw": GOTO 42300 
IF NBONL THEN NB-NL 

NRzNA:BGÜSUB 51110: NRzNR-1:NC-NR: Вб=МВ+1: 60508 61816 

IF NC>=NB THEN GOTO 61990 

NA=NC: GOTO 41930 


REM —————nÇ EEN REBEL TYPEN 

PRINT “TYPE GEMENSTE REBEL: /// BETEKENT STOP" 

PRINT "15 °T EERSTE TEKEN EEN SPATIE DAN TUSSEN AANHALINGSTEKENS!" 
INPUT AS: ТЕ n$-"///" THEN END 

PRINT :POKE #131,9:PRINT AS:POKE #131, 1:ВОТО 82510 


REM cement re ek TOELICHTING 

PRINT CHR$(12); 

PRINT "Na programma 1 krijgt men de EDIT-toestand,waarin men tekst" 
PRINT "kan redigeren.Programma 2 (STÜRE) zorgt dat deze tekst op-" 
PRINT "eenvolgend genummerd in het tekstgeheugen wordt opgeslagen" 
PRINT "in z.g.REM-statements tesamen met het programma,dat op de" 
PRINT "regels 80000 en hoger staat. Dok na de programma' s" 

PRINT "3 (DELETE),4 (DELETE & STORE) en Š (REPLACE)" 

PRINT "staan de regels opeenvolgend genummerd in het geheugen" 

PRINT "Er zijn tekstregels en commandoregels voor printerbesturing." 
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PRINT 
PRINT 


. PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 
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"Lommandoregels worden in programma 6 (PRINT MET NUMMERS)" 
"wel en in programma 7 (PRINT ZONDER NUMMERS) niet afgedrukt." 
“Voorbeelden van opgeslagen regels zijn dus:" 

4 20REM, tekstregel i 

Е SOREM, commandoregel " 

“De commandoregels zijn" 

"С CM :CS voor brede normale en smalle letters." 

"ell 115 voor lange(Z6cm) en korte(i&cm) regels.” 

“gL :88 voor grote(4.2mm) en kleine($.2mm) regelafstand.” 
" sljuyz [abc teken J c.q. Г wordt CHRS(xyz) Co, CHRS(abc)." 
{alleen іп de volgende regel)" 
"De printer pas inschakelen als men wil afdrukken!" 

"De EDIT-toestand van programma 1 altijd beeindigen met" 

" BREAKtoets/BREAKtoets tit! Na * starten met RUN." 
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— со NM VE в вто м — e40F ; 
949F ; 
BAGF 3 Initialisation du 8253 (Compteur programmable) 

Le principal défaut de la routine PDL du DAI est le temps de 049Е ; - SNDC Bit 9 = 6 : Compteur binaire 16 bits 
conversion à vide. En effet quand le paddle n'est pas branché le DAI e4eF 3 — Bit 1,2,3 = @ : Arret du cptr sur impulsion pdi 
met un temps tout a fait fantaisiste pour lire la valeur présente sur e40F ao = Bit 4,5 = 1 : Charge deux octets 
le port. Vous trouverez ci dessous la routine du DAI revue et corrigé @40F i - bit 6,7 = 6 : Compteur pdl (0) selectionne 
afin d'en éliminer ce défaut. Cette routine interessera tout les 049Е Н 
programmes #aisant appel au paddle pour y eviter les résultats @40Е ; 
désagreables d'un freinage (Cf Acrobates...). 64eF ZERO MVI ñ зен init. 8255 

9411 25206ҒС STA SNDC 
9414 E 
0414 1 Chargement du compteur © avec 255 
0414 3 Lance le compteur © en accedant a l'adresse FDLST 
Д | 6414 $ 
HEEL 91.1 | 9414 21FF00 LXI H ОРЕН Charge compteur @ 
GOED PET LE, 43H, IH, LE, 45H, ODM 9417  2200FC SHLD PDLCH 
hel 6414 SAGIFD LDA PDLST Lance compteur © 
z 8410 E 
5. | 9410 1 Boucle d'attente. 
геге ; Definition des differentes adresses du DAT : 0410 7 | 
дедо ; 9410 212301 LXI H 123H ifttente conversion 
обоо : 9420 2R WAIT DCX H 
6000 A-6040 POROM EQU 40H Copie de FDOé 0421 70 MOV AL 
6000 a=FC@G PDLCH EQU oFCOOH ;Ad. compteur pdl 0422 B4 ORA H 
0000 à=FCûé SNDC EDU евсеьн 3Ad. commande compteur 0425 С22005 JNZ WAIT 
$000 a=FD@1 PDLST EQU OFDO1H зда. Lancer compteur 
0000 Act Dot FORD EBU 9FDASH sAd. Info. pdi 
2000 : SPL V1.1 PAGE 2 
0000 à=0000 PDL EQU ен ¡No du paddle (9-5) 
годе ; 9426 j La valeur lue sur le port est maintenant disponible 
ооо ORG деен 942% $ pour la connaitre reellement ол effectue le calcul 
0400 ; 9426 $ Valeur effective = ~ (Valeur lue + 50) 
e400 ; 9426 ; | 
@400 3 Autorisation fonctionnement compteur paddle 0425 2АФОРС LHLD' PDLCH iLecture conversion 
9409 y - PORO Bit 3 = 1 9429 7D MOV A,L 
6400 1 Selection du № de paddle А 942A 2F CHA iComplemente 
9409 $ - PORD Bit 9,1,2 = № de paddle 642R DERI SBI 31H ssoustrait 49 
одод ; 9420 GE MOV L,A 
әлде ; 9125 i 
одод F3 RPDL DI Acces au Е/5 ? 042E $ La valeur convertie est maintenant disponible dans L 
9401 304000 LDA POROM 042E 3 
2494 ЕБЕВ АМТ GEO МӘ pdi-e 042E ; On interdit maintenant l’acces au paddle 
0406 Е608 ORI РІШ ЖӘН sAutorise pdl*na 942Е š PŪORO Bit 3 = Ф 
0498 Z206FD STA PORO ifctualise E/S 642b ; 
одов 324000 STA POROM sActualise copie E/S. 942€ ЕЗ DI 
040E ЕВ EI 0422 3A4000 LDA POROM 
i 9432 E6F7 ANI ФЕ?Н 
0434 S206FD STA FORO 
9437 324000 STA РОКОМ 
6438 FB EI 
0458 $ 
943B END 
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Assembly listing of the alternative inkey routine, 
The assembling and linking is done on the СРМ system. The 
program is than down-line-loaded into the DAI's memory. 


Peter Jongen 
Zeemanhof 25 MACRO-BO 3.43 27-Jul-81 PAGE 1 
28711М Schoonhoven. 


Dear Dai-namic friends 
; ALTERNATIVE INKEY ROUTINE. CALLED PER RST-1 BY THE 

SCAN 

KEYBDARD ROUTINE. NORMAL ROUTINE DID NOT ALLOW CTRL 

CHARACTERS TO BE GENERATED. 

- UPPER CASE LOCK/UNLOCK IS DONE WITH CTRL-SHIFT. 

= ESCAPE CHAR IS CONTROL-L 

SOME CHARACTERS PRESENT IN DAI-CHARACTER ROM AND 

NOT QN KEYBOARD 

ARE GENERATED USUNG CONTROL-KEY. 

- CONTROL : ! $. i ae p CR ae OE; 
GENERATE : ' 1,27 a OG 5 $ а А 


As 1 alraedy mentioned in one nf my earlier letters I am | 
using the DAI as a (full grafic) terminal connected to my 

СРМ system (Bigboard 11). 

Enclosed I send you a new copy of this program and а 

modified copy of the program's "facts and figures" 


I have extracted the alternative inkey routine use in this 
program and assembled it as a seperate ML module, loadable 
in the DAI. 

Set the start of heap to an address above the routine, read 
the tape and do ab 400. 

The comments in the listing are selfexplanatory (I hope). 


Peter Jongen 

; Zeemanhaf 25 

Furthermore as I prommissed at the HCC-days in Utrecht 1 1 2871; Schoonhoven, tels 01823 5170 
send you coppies of my letters to Peter Noyez from Belguim } 

who asked my help in developping а disk-contoller and 005 


for his DAT. 0080 BIT7 ERU овон 
As you can read I asked him to make an article for dainamic 0064 1105А EMU 064H 
about his experiences. In his latest letter he wrote to do 
his best in finding time for it. Sinds I am not using my own ORG 0400H 
B-inch DAl-disk anny more and my 4.0.3. was not yet } 
completely ready for publication, (read: not yet idiot 0400” Е5 START: PUSH H 
proof) 1 am not in a position anny more to write a full 0401: ЕЗ DI 
detailed article myself. If however Peter is not in a 0402” 21 0408” LXI HRSTI 
position to do a full article about his findings I wil try 04057 22 0064 SHLD I1USA БЕТ NEW INTERUPT VECTOR 
to write something. 0408' E1 POP H 
I da not send you the listings etc of my dos and controler 0409” ЕВ ET 
that 'accompanied my letters to Peter if somebody is 0404? с9 КЕТ 
interested let пе know or wait for Feter article. 040B' El RST1: POF H 1FROM STACK 
040C* ES XTHL ;RET ADR IN HL 
One week ago I have changed the DAI hardware ta get the 80- 0400" F5 PUSH FSW 
column mode develloped by Anton Doornenbal. The change is | 040E? 7E MOV А, М DATA BYTE 
realy easy to make for someone who has experience in this 040Е? ЕЕ 12 CPI Q12H 318 ІТ INKEY? 
field. 04117 СА 0418” 92 INKEY ; YES 
Dfcause I adapted the change in my terminal program. | 0414” Ft PDP PSW 
Now I have a terminal with 80X24 character screen, and all 0415” ЕЗ XTHL 
grafic features of the DAI!!. 04167 ES PUSH H 
0417? 21 С70Е LXI H,OC7OEH 
And! I can still use the DAI as a DAI with disks. Both, in 0418” ES PCHL ;CONTINUE NORMAL RSTI 
my CPM system and the DAI I have written programs that 0418? Fi INKEY: FOP PSW 
simmulate a DAl-disk-operating-system!. 1 can LOAD, SAVE, 041C* 23 INX H ; ADDRESS AFTER RST-DATA 
and do LOADA and SAVEA from ‘disk’. The files are than 041D' ES XTHL ; то STACK 
loaded and stored on a diskette under СРМ. Furthermore the 041E` FS PUSH PSW 
programs supports: printing on the CPM list device from out ОЩЕ? CS PUSH B 


the DAI, and viewing the disk directory. 
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0420” 
0421" 
0424? 
0425" 
0427’ 
0428" 
0420” 
О42Е* 
0450? 
0451" 
0452" 
0433” 
0434” 
0435” 
0456” 
0459" 
0438? 
0430" 
0440" 
0442? 
0445" 
0448" 
0449: 
0440? 
0440" 
O44F* 
0452" 
0455" 
0456? 
0457” 
0458” 
0454’ 
0458? 
OASE” 
0450" 
04607 
0462" 
0465” 
0487" 
0468* 
RES 
0460" 
0470" 
0472” 
0475" 
0476" 
0478’ 
0478" 
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0040 


co 
0040 


2 FDü6 


07 


0287 
00 


0449? 
0449? 
0263 
0280 


40 
0458” 


0058 


OABé* 


0482? 


PUSH H 
LDA 040H 
PUSH PSH 
ORI OCOH 
STA 040H 
STA OFDOAH 
El 
MVI A,07H 
SUB B 
ADD A 
ADD A 
ADD A 
ADD с 
MOV С,А 
LHLD  O2A7H 
MVI 8,0 
CPI 011H 
JC L3E145 
CPI 02BH 
JNC L3E145 
LDA O2C3H 
MOV B,A 
L3E145: LDA 02B0H 
ХКА B 
ANT 040H 
27 L3E146 
PUSH D 
LXI р, 038H 
DAD D 
POP D 
L3E146: MVI B,0 
DAD B 
MDV А,М 
ока а 
17 L3E149 
CPI BIT7 
27 L3E149 
CPI 07EH 
INZ NOTRAN 
MVI A, 040H 
NOTRAN: MOV в,а 
LDA OZAEH 
ANI 040H 
A7 LZE 
MOV A,B 
CPI 040H 
JNC MKCNTR 
LXI H, XLTAB 
MOV C.M 
XLLODP: INX H 
MOV A," 
CMP B 
INX H 
Jz CFOUND 
DCR с 


СР/М TERMINAL 


zOLD BANK SELECT 
;SAVE ІТ 
; SELECT BANK 3 


100 SELECTION 


3) 

; 

+) CALCULATE OFFSET 
5)FOR KEY PRESSED 
1)STORE IN C 

3) 

3 


3) 
D 
; ВЕК OF ASCii TABEL 


;) 
3 

1) CHECK IF 
p) А-2 


; SHIFT LOCK 

1IN B 

; БЕТ SHIFT BYTE 

TAKE CTRL INTO ACCOUNT 


iNO SHIFT 


OFFSET L.C. 


БЕТ ASC FROM TABLE 

CHECK BREAK, REPT, SHIFT 
;CHECK FOR CTRL 

CHECK CNTRL ONLY 

{UPDATE CNTRL FLAG 

ре CHAR 

DIRECT: TILDE TO MASTERSPACE 
;MAKE В 

ASCII IN B 


;CTRL BIT 
;NOT SET 


;CHAR ALPHA A-z ? 

;YES, MAKE CONTROL CHAR 
;PDINT TO TRANSLATE TABLE 
;GET TABE CDUNT 

#FOINT TO CHAR. TO TRANSLATE 
;GET IT 


3POINT TO TRANSLATION 
FOUND IT, DO TRANSLATIONA 


0487' 
048A? 
048D? 
O4BE' 
0490” 
0491: 
0494 
9495: 
0498: 
0498” 
049C* 
049F* 


UE 


0443’ 
0484” 
0445: 
0486” 
0447” 
офдай” 
0440” 
O4AE’ 
О4АЕ” 
0480” 
0481” 


0482” 
0485? 


0486” 
0489” 
одва” 
0480” 
О4ВЕ” 
040" 
04057 
04с6” 
04C7' 
04CA’ 


04С0” 
OACE' 
O4CF* 
04D0" 
0401” 
0402? 
0405? 
0404” 
0405” 
0406? 
04D7* 
0408” 
0409 


ЗА 
4Е 
за 
A1 
Eó 
CA 
3A 


32 
C3 


047F' JNZ 

04917 IMP 
NECNTR: MOV 

O2BE L3E: LHLD 


D59C CALL 
0200 LDA 


0484” di 

O2BE SHLD 
L3E147: PDF 
L3E148: DI 


0040 STA 
FD06 STA 


РОР 
RET 


CFOUND: MOV 


3 0491' JMF 


3 
sk CNTRL FLAG 
DAE L3E149: LDA 
MOV 
02B0 LDA 
ANA 
40 ANI 
0485” JZ 
0203 LDA 
CHA 
0263 STA 
0485? JMP 


XLLOOP 3; TRANSLATE LOOF 


L3E ;NO TRANSLATION, END OF TABLE 
A,B 

9FH MAKE CONTOL BUT LEAVE 

В,А ;BIT 7 BET 

O2BEH NEXT POS IN KLIND 


H 
GD69CH  ;UPDATE POINTER 


02COH GET L.S. BYTE 
L 
L3E147 
O2BEH ¡UPDATE KLIND 
;GET OLD KLIND 
M, E ; STORE ASC 
H 
PSW OLD BANK-SELECT 
0404 RESTORE 
OFDOGH ; КЕЗЕТ 
H 
B 
RETURN FROM RSTI 
B,M БЕТ NEW CHAR, 
L3E 


O2AEH =; CTRL 


С,А 

O2BOH 3 SHIFT 

с 

040H  ;BOTH BITS SET 
LSE148 ;ND 

O203H YES 

O2C3H 

L3E148 


E 
s TRANSLATE TABLE FOR CHARACTERS NOT ON DAI-KEYBOARD 


H 
XLTAB: DE 
DE 
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(XLTABE-XL TAE) /2 
HE 
123 
ER 
125 
ap? 
92 


2 


95 
"T 
96 


arr 


124 
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Dänn" 
Macros: 
Symbols: 

0080 BIT7 
0418” ТМКЕУ 
0458: L3E146 
0486” L3E149 
O4OB” RSTI 
04CD' XLTAB 


ШШ 


XLTABE: 


0482" CFOUND 
0491” ЗЕ 

04047 L3E147 
048D* MKCNTR 
9400: START 


0404” X 


E 
toto to SC FA 


ШШЕ 








LTABE 


AA 


END 








0064 

0449” 
0485" 
044C’ 
O47F* 


ACI (B2) ADC A, n IN (82) INA, (n) POPH POP Hi 
ADCM ADC A, (HL) INRM INC (HU) POPPSW POP AF 
ADC r АССА, г INR INC: PUSHB PUSH вс 
ADDM ADD A, (HL) INXB INCBC PUSH D PUSH DE 
ADD: ADDA, r INXD INCOE PUSHH PUSH HL 
AD! [82] ADDA, n INX H INC HL PUSH PSW PUSH AF 
ANAM AND (HL) INX SP INC SP RAL RLA 
ANAr ANDr JC[B2][83] ` IPC, on RAR RRA 
ANI [82] AND n JM (82) {83} ЈРМ, по RC ЕТС 
CALL САЦ nn JMP[B2](B3] JP nn RET RET 
СС {82} (83) CALC, nn JNC 182) 83) JP NC, nn RC R.CA 
СМ (1821183) CALM, nn JNZ[B2)[B3] JPNZ, по RM RET AA 
CMA CPL JP(B2)(83] JPP, по RNC RET NC 
CMC CCF JPE (82) [83] JPPE, nn RNZ RET NZ 
CMPM CP (HU JPO [82] [83] JP PO, an RP RETP 
CMPr CPr JZ [B2) [B3] 2Р2, по RPE RET PE 
СМС {82} [83] САЦ МС, nn LDA (82) [83] LOA, (nn) "o RET PO 
CNZ {82} [83] САЦ М2, nn АХВ ША, (ВС) RRC RRCA 
CP(B2)(B)] САЦР, na АХО LDA, (DE) RST RSTP 
CPE (82) 183) CALLPE, nn LH LD [82] [B3] LO HL, (nn) #2 RETZ 
CPI |82) CPn 1448 182) (83) LD BC, nn 588 М SBC A, (HL) 
СРО 1821183) САЦ РО, nn {DID (82) (83) LODE, an 388: SBCA, r 
С2 [82] 183] САЦ Z, nn LXI H (82) (83) LD HL, nn 5811821 SBCA n 
DAA DAA LU SP (82) (83) LD SP, па SHLD (82) (83) LO (nn), HL 
DADB ADD HL, BC MOV М, + AD (HI), r SPHL 1D SP, HL 
DADO ADD Hi, DE MOV r, М tOr, (HU) STA {82} {83} 10 (nn), А 
DAD H ADD HL, HL MOV el, r2 (Dec STAXB {2 (8С), А 
DAD SP ADD Hi, SP MVIM LO (HU, n STAX D LD (DE), A 
осям DEC (HL) MVI r [82] га ste SCF 
OCR DEC r NOP NOP SUB M SUB (HL) 
осхв DEC BC ORA M OR {HL} SUB r SUBr 
осхо DEC DE ORAr or: SU! {82} SUB n 
осхн DEC HL ORI [в2) ORn XCHG EX DE, HL 
DEX SP DEC SP OUT (B2 OUT (n), A XRAM XOR (ML) 
о о PCHL JP (HL) XRA хов, 
н а Pors POP ВС ха! (82) XOR n 
HALT нт POPD POP DE хтні EX (SP). HL 
CP/M TERMINAL 
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TLUSA 

L3E145 
L3E148 
NOTRAN 
XLLOOF 





Facts and figures about the DAI-terminal program. 


How to load the program: 


Set the start of heap pointer to :000 

The program starts at :400 

The tape reads into :400-BC1, address BCi-DOO are initalised 
by the program. 


GENERAL : 


' The program works at 9600 baud, but that can be changed 


before starting the program. 


Interupt is used for receiving the characters from the host 
system. These characters are then stored into a buffer, As à 
buffer the program uses all available RAM above End-of- 
symbol table onto Screen bottom. The main loop then takes 
the characters from the buffer and puts them on the screen. 
Especialy when the DAI has to scroll up the screen it is not 
fast enough to keep up with the 9600 baud line speed, but 
because of the buffering no characters are lost. 


If very large and long (several pages %/- 40k!!) messages 
are send to the terminal at full speed, the posibility 
exists that the buffer will overoll, If that is expected a 
small hardware change will allow an inactive "CLear-ta-send" 
sinal to be generated at pin 5 of the RS232 interface. Тһе 
DAITERM program support this. As soon as enough buffer space 
is available the CTS signal will turn active again etc, By 
this methode no characters are lost no matter what happens, 
Ofcause the host system has to be able to see this CTS 
signal. 


THE KEYBOARD: 


The DAITERM uses a slightly modified keyboard routine. The 
contol key will now operate as it should. Pressing it alone 
will do nothing, but together with any other key this will 
generate the correct control-code. The shift key works as 
normal however to shift/loc from upper to lower case and 
back one needs to press control~shift. Furthermore the ' ? 
character generates a 78”, 


Some extra characters are generated using the contol-key 
with some none alpha keys. 

contol Dg вот > 7 

generate 007 4 3 \ 


The cursor control keys do not generate any character to 
the host system but are used for terminal control. (see 
below) 


CP/M TERMINAL 
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THE SCREEN: 


The screen format is 24 lines by BO! characters. Sinds the 
DAL hardware only allows 60 chars ta be displayed, the 
DAITERM program allows horizontal scrolling. By pressing the 
left cursor control key (gray keys) the screen will scroll 
10 character positions to the left. Doing this twice will 
schow char. pos 80 on the right side af the screen. etc etc 
for the right arrow key. 

If the cursor moves to, ог is at, а character position not 
currently displayed on the screen, it will stay at the left 
or right side of the screen and change into an arrow 
pointing in the direction of the currently not displayed 
part. 

Auto cr/1f is generated if more than 80 characters are send 
to a line. 


TERMINAL CONTROL: 


To stop the DAITERM program; fist press break and then press 
the shift and up-arrow key. The program will restore all 
interupt, pointers etc and terminate. 

If the terminal is in grafic mode and you want to return to 
character mode press Break and then the down-arrow key. This 
also clears the screen when in normal character mode. 


PROGRAMMING THE TERMINAL: 


Appart from being able to display received text the program 
exepts — several control sequences to control cursor 
positioning, mode control, grafics etc. 

Here is the full list: 


? cntr-L - 012h 

or cntr-Z = O1Ah 

or esc X 

or esc t Cursor home and erase screen 


> esc = 1 С Cursor positioning, 
lzline number biased 020h 
cecolumn number biased 0208 
to position the cursor at top left of 
screen send: 018502020 (all hex) 


> esc T 

or cntr-X Erase to end of line. Leave cursor at 
current position and clear rest of line. 

> esc Y 

or cntr-ü Erase to end of display. Leave cursor at 
current position ans erase rest nf 
screen after and below cursor. 

> esc Mx Dai grafic controls, see below. 
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> esc m Load dai memory from host,see below. 


> esc c Call routine in Dai memory,see below. 


USING DAI-GRAFICS: 
All grafis are controled with the "esc,M,x...." sequence. 


x stands for: # of parameters 


s - set screen mode 1 
q - set grafic colours (colorg) 4 
t - set text colours (colort) 4 
1 - draw a line 5 
d - set a dot z 
f - fill a block 5 
attn. The case is important so "esc MG..." will do nothing 


and sound the terminal allarm shortly  (1000Hz at sound 
channel 1). 


After the above sequence up to 5 parameters must to be 
specified. Parameters are given with normal ‘integer! 
ascii numbers separates by one or more spaces, 

Best 1 explain this with an example using basic: 


10 E&=CHR$ (27) 

20 Мия10 

30 С17=0:С2%=5: 34-10: 44-13 

40 X140: Ути: X212100: V245120 

50 PRINT Ев: "Ма" C12; C225 C33 C4% 

&0 PRINT ЕФ; "Ма" МХ :REM SET SCREEN MODE 6 

70 FOR №1 TO 1000: МЕХТ REM WAIT LOOP EXPLAINED BELOW 
80 PRINT Е$;"М1"}037;Х17;Ү17%;Х2%;Ү2% 





Above program will set COLORG initiate the screen in MODE ó 
and DRAW one line 0,0 100,120 in colour Š 


Screen mode parameter: 


MODE PARAMETER MODE PARAMETER 
0 255 3A 5 
1 0 4 6 
1А 1 4A 7 
2 2 5 8 
2A 3 за 9 
3 4 6 10 
6A 11 
Notas! 


The colour number is given as the first parameter, not as in 
the DAI as the last parameter’. 
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If the line, dot or fill parameters cause off screen, 
nothing happens, the line is not drawn. 


Special care has ta be taken if a mode set command is done, 
As already mentioned the program assigns all available 
memory as input buffer and screen-save (characters  scrolled 
off the screen). If the screen mode changes, the buffer has 
to be rearranged. After a mode change the program looks if 
the available memory has been changed and if so, resets all 
input, output buffer pointers. By doing so all data send to 
the terminal after the mode change command is lost. During 
the time it takes the DAI to set up the screen memory no 
data should be send to the terminal. 


DOWN-LINE-LOAD: 
Евс,т,аа,сс .... 


aa = 2 bytes address to store date іп 

ce = 2 bytes count value for the number of bytes 
both numbers in 8080 hexadecimal format (1.6. byte 
first) 


All data received after this sequence are stored into the 
DAI memory starting at the requested adress. Before you can 
use this, be sure to make enough room by changing the DAI- 
pointers. 

I use this to down-line-load a new versions of the terminal 
program, that I assemble with the micro-soft assembler 
under CPM, or load the screen-copy program. 


CALLING THE DAI: 


The host system can load a program in the DAI memory and 
then start it by means of the follawing sequence: 

езс y Ca т, ACBEDLHaa 
c and m are the lower case ascii c and m 
A,C,B,E,D,L,H are the contents off all 8080 registers, they 
are loaded before calling the routine at adress "aa". Again 
"aa" is in 8080 format 1.s. byte first. 
After return from the called routine the DAITERM program 
checks if the memory pointers have changed and if so 
reassigns the input buffers. 
With the two sequences from above the host system can e.g. 
load the START-OF-HEAF pointer, call :DEOS, down-line-load 
the screen copy program and call it. In my case the screen 
copy program then sends the screen data to the host-system, 
where the data is stored in memory and printed or saved in a 
disk file. 
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CLEAR TO SEND: 


As already mentioned, if the terminal is connected to a 
system that send pages of data or a lot of grafic commands 
the ‘slow’ DAI is not fast enough to allow 9800 baud so the 
input-buffer will overflow. The DAITERM program periadicaly 
chechs for this condition and if the buffer is nearly full 
it will set the CTS output inactive. As CTS I use the 
signal that controls the power on relay af the 2nd cassette 
interface. One transistor and 2 resistors are used to make 
the signal CCITT compatible í <-3V = inactive, > +W = 
active). 


CIRCUIT FOR CTS: 


+5V 
1 
+ 
1 
I e! 
IC 32 b I<---! any Р.М.Р. transistor 
pin 16. ---[ Bék 1---І 
Doce, 
о pin.S of rs232 con. 
1 
1 
2k2 
! 
-5У 


You could test the program by connecting 2 DAT pc with the 
rs232 connected: 


ground pin. T smsen pin 1 ground 

out pin 2 ------- pin š in 

in ріп 3 ------- pin 2 out 

dtr pin 4 ------- pin Š clear to send 


Peter Jongen 
Zeemanhof 25 
2871JW Schoonhoven tel: 01823 5170 
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MEES ` 


DOOS EE B U OM) ee 


480 

490 

500 

1000 
3000 
3010 
3020 
3050 
3040 
3050 
3060 
3070 
3100 
3110 


176 





REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
MODE O:COLORT 5 13 3 5 

PRINT СНАФ (12) 3 CURSOR 0,23: PRINT "SCHOONER 


AHESEHE JESEHE JE QE IE E EIE ЯКУНИН 


R.MARCEL/FEVRIER 1982 


BLUENOSE 


sk ok k жж 
ж Жж жой ж 


KE 


са wa вз юз өз as па se wn 


* BLUENOSE" 


PRINT "de 45 m. 1920)" 
POKE #BEE2,#DF:POKE #BEES,#SF:CURSOR 4,21:PRINT "ӨПЕ ЕТТЕ" 
MODE 4A: COLORG 8 14 100 

REM : Au mouillage 

FILL 75,0 246,10 0: 60808 3000: 60508 3000 
DRAW 290,15 244,12 O:DRAW 290,14 244,11 0 
DRAW 270,0 260,11 0 

60508 4000 

DRAW 58,24 152,205 0 

DRAW 153,200 208,120 9 

DRAW 100,24 150,140 O: DRAWN 164,21 206,120 0 
DRAW 151,20 90,24 O:DRAW 151,21 90,25 0 

DRAW 155,25 206,17 O:DRAW 155,24 206,18 0 
DRAW 288,18 210,112 O:DRAW 254,12 210,112 0 
WAIT TIME 200 

REM :Appareillage 

GOSUB 3100 

DRAW 152,116 110,164 O:DRAW 152,117 110,145 0 
GOSUB 3000: 60508 3000 

GOSUB 3100 

DRAW 206,92 164,122 O: DRAW 206,73 166,123 0 
WAIT TIME 150:DRAW 270,0 260,11 8 

GOSUB 3000:G0SUB 5000:B0SUB 3000:GOSUB 3100 
GOSUB 4000 

WAIT TIME 200 

REM : Changement de couleurs 

DIM CC(15. 0) ,CB(15.0) 


CC (1.0) =0. O: CC (2. 0) 21. O: CC (3. 0) 28, 0: CC (4.0) 210, O2 CC (5,00 29, Or CC (6,0) 212, 0: CC (7.0) 214.0 
CB(1.0)20.0:CB(2.0)71,0:CB(3, 0) 23, O8 CB (4. 0) 24, O: CB (5. 0) z6. 0: CBt 6.0) 27.0: CB(7.0) 29.0 
СВ (8.0) 210, O: CB(9,0) 215, O: CBC 10.0) 22.0 


FOR N=1.0 TO 10.0 

AX-RND (8.0) s BX=RND (16. 0) : CX=RND (16. 0) :DZ=RND (11.0) 

IF BX-CC(AX) OR CX-CC(AZ) OR BZ-CB(DZ) OR CX-CB(DX) THEN 460 
IF CC(AX)SCB(DZ) THEN 460 

COLORG COAX) ви CX CB(D%):WAIT TIME 200:МЕХТ 
COLDRB 8 10 3 0 

GOTO 1000 

REM :8/P FILL TRIANGLE 

READ X1,Y1,X2, Y2, X3, Y3, CD 
XJ=X1:YJ=Y1:XK=X2: YK=Y2: GOSUB 3500:0-R1:B-R2 
XJ=X2: YJ=Y2: ХК=ХЗ: YK-Y3: GÜSUB 3500: C=R1 : D=R? 
XJ-X3: YJ=Y3: XK=X1: YK2Y1:GOSUB 3500:E=R1:F=R2 
FOR Y=Y1 TO Y2:XD-(Y-B) ИА: XF=(Y-F) /E:DRAW XD,Y 
FOR YzY2 TO V3: XD=(Y-D) УС: ХЕ= (Y-F) /Е: DRAW XD, Y 
RETURN 

REM :8/P FILL QUADRILATERE 

READ X1, Y1,X2, V2, X3, Y3, X4, YA, CD 


XF,Y CD:NEXT 
XF,Y CD:NEXT 
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REM 

REM : Les Yi doivent etre dans l'ordre croissant 

REM 

XdjzXi:YdzYi: ХК=Х2: УКеУ2: GOBUB 3500:6-R1:BzR2 

IF SGN(X2-X1)=SGN(X4-K3) THEN 3145 
XdzX2:Yd-2Y2: XK=X3: YKz Y3: GOSUB 3500: C-R1: D-R2 
XdzX3:YdzY3: ХК-Х4:ҮК-Ү4: БОБОВ 3500: E=RisF=R2 
XdjzX4:YdzYA: XK=X1: YK=V1: GOSUB 3500: G=R1 2 H=R2: BOTO 3140 
XJzX2: YJzY2: ХК=Х4: YK=Y 4: GOSUB 3500:C=R1:D=R2 

XJ=X42 YJ=Y4: XK=X3: YKsY3: GOSUB 3500:E-R1:F-RZ2 
XdzX3:YJzY3: XK=X1:YK=Y1:808UB 3500:G-R1:H-R2 
&1-0:B1-B:A2-6:B2-H:FOR Y-Yi ТО Y2sGOSUB 5500: МЕХТ 
Ai=C:B1=D:FOR ҮсҮ2 TO ҮЗ: БОБОВ 5500: МЕХТ 

IF SGN(X2-X1)=SGN(X4-X3) THEN 3200 

Ai-E:BI-F:FOR Y=Y3 TO YA:GOSUB 5300: NEXT: RETURN 
Al=C:Bi=D:A2=E:B2=F:FOR YzY3 TO Y4:GOSUB 3300: NEXT: RETURN 
XDz(Y-B1)/81:XF-(Y-B2) /A2:DRAW XD, Y. XF, Y СО: RETURN 

IF XJ=XK THEN XK=XK+0.1 

Riz(YJ-YIO / OG -XKO) s R2z ((ХОжУК) = (МОК) ) / (XJ-XK) s RETURN 
REM S/P MATURE 

FILL 150,10 152,140 O:FILL 152,120 153,205 0 

FILL 205,10 208,120 O:FILL 208,104 209,170 0 

DRAW 209,165 270,16 0 

DRAW 153,205 209,170 0 

DRAW 208,14 155,20 O:DRAW 208,15 155,21 0 

DRAW 151,17 50,23 O:DRAW 151,18 50,24 0 

DRAW 65,10 70,23 O:DRAW 65,10 60,23 O:DRAW 160,10 140,20 0 
DRAW 150,140 135,9 O:DRAW 206,120 195,9 0 

FILL 85,9 130,12 O:DRAW 85,13 130,12 10:DRAW 60,10 260,11 10 
FILL 83,10 85,13 10:00Т 130,11 10 

FOR Jz0.0 TO 13.0 STEP 13.0:DOT 90+0,11 G:NEXT 

RETURN 

DATA 246,0, 150,9,264,13,0 

DATA 75,0,104,10,60,9,0 

DATA 149,19, 55, 25, 149, 118, 112, 159, 14 

DATA 252, 16,210, 20, 214, 96, 14 

DATA 288, 18, 234,30, 212, 199, 10 

DATA 205, 16, 157,22, 205, 71, 168, 120, 14 

DATA 204,97,172,122,208,147 ,14 

DATA 149,123,117, 163, 152, 201,14 

DATA 245, 62, 218, 88, 212, 158,14 

DATA 155, 103, 204, 110, 205, 128, 162, 188, 10 
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De vorige keer ben ik begonnen met de 
functies van het handboek in groepen 
onder te verdelen. In de indeling die 
ik toen maakte kleefden nog wel enige 
'slordigheidjes'. Niet dat er nu onzin 
stond, maar het een en ander behoeft 
toch nog wel enige toelichting. 


Zoals reeds de vorige maal betoogd 
werd, beschouwen we een functie hier 
als een of ander voorschrift, 

Dit voorschrift koppelt dan aan elk 
origineel (of argument) dat aan de 
functie kan meegegeven worden een zo- 
genaamd beeld, 

De mogelijke originelen zitten met 
zijn allen in een verzameling en die 
verzameling geven we aan met het woord 
'Domein'. Dok de verzameling van alle 
beelden bij elkaar geven we met een 
eigen naam аап} we noemen die verzame- 
ling het 'Bereik', 


Indeling 


Er bleken echter functies te bestaan, 
die tech geen argument meekregen en 
dus leek het er op dat er geen origi- 
neel aanwezig was. De vorige keer ben 
ik hier uitvoerig op ingegaan en ik 
wilde dan nu ook een andere groep wat 
nader bekijken. De grootste groep nog 
onbesproken functies (slangste kolom) 
wilde ik tot het laatst bewaren en 
onze aandacht nu eerst richten op de 
groepen waar tekstvariabelen een rol 
spelen. 


In de tabel stonden zij als volgt : 





D Functies met s Functies met i 
1 tekstvariabele : getalsvariabele : 
в als argument en : als argument en: 
: getalsvariabele :  tekstvariabele : 
1 als beeld : als beeld 3 
3 ASC D CHR$ 8 
1 LEN : HEX$ : 
Н VAL : LEFT$ : 
1 VARPTR : MIDS 8 
: š RIGHTS i 
3 : STR$ : 
: : SPC 1 
: i TAR ; 
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Velen zullen (hopelijk) bij deze inde- 
ling al hun wenkbrouwen hebben ge- 
fronst. In de linker kolom is  VARPTR 
duidelijk een buitenbeentje en in de 
rechter kolom 15 de TAB en eventueel 
SPC een functie, die enigzins afwijkt. 
Ik wilde deze kolommen niet afzonder- 
lijk behandelen, daar er in de linker- 
kolom nogal wat  functies bij zitten, 
waarvan in de rechterkolom de inverse 
functie staat. 


Inverse functie 


Bij elke functie moet gelden dat er 
bij elk origineel een en ook precies 
een beeld is, De argumenten die we aan 
een functie kunnen meegeven waar geen 
beeld bijhoort zitten dus niet in het 
domein en mogen dan ook niet als argu- 
ment meegegeven worden. 

Het hoeft echter niet zo te zijn dat 
bij elk origineel een ander beeld 
hoort, Het is best mogelijk dat er 
meerdere originelen zijn die allen 
hetzelfde beeld krijgen toegevoegd. 

Is de functie echter zo, dat - of door 
het voorschrift - of door het gekozen 
domein (of beide) er bij elk origineel 
precies een beeld hoort, dat aan geen 
enkel ander origineel wordt toegevoegd 
spreken we van een een bijectie ( uit- 
spreken als bie-jek-sie | ) of een-een 
afbeelding. 

In dit geval hoort niet alleen bij elk 
origineel een beeld ( dit moet zo zijn 
bij elke functie ), maar bij elk beeld 
hoort een origineel en niet meerdere, 
Het is dus mogelijk in dit geval een 
functie te definieren waarbij het ori- 
gineel en het beeld van plaats zijn 
verwisseld. 

Deze functie wordt de inverse functie 
van onze oorspronkelijke functie ge- 
поета, 


Simpele voorbeelden van functies die 
een inverse hebben zijn: 


1- Aan elk getal wordt het getal 
toegevoegd dat twee groter is, 

De inverse functie is dan vanzelfspre- 

kend de functie, die aan elk getal het 

getal toevoegt dat twee kleiner is. 
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2 - Вап elk getal wordt het getal 
toegevoegd dat drie maal zo groot 

is als het origineel. 

De inverse functie is nu de functie, 

die aan elk getal het getal toevoegt 

dat drie maal zo klein is. 


$ - Aan elke ASCII-code wordt een ka~ 
rakter toegevoegd. 

De inverse functie voegt dan aan elk 

karakter een ASCII-code toe. 


М.В.: Bij onjuiste interpretering van 
het begrip ASCII-code is dit onjuist ! 


Theorie еп praktijk 


Bij een nadere beschouwing blijkt er 
echter vrijwel geen functie te zijn op 
de DAI waarvan ook de inverse aanwezig 
is, 


Ik zal dit illustreren aan de hand van 
het eerste voorbeeld. Het zal iedereen 
duidelijk zijn dat de functie zoals 
die hier gedefinieerd is een inverse 
heeft, Maar op de DAI (en elke andere 
computer trouwens ook) is dat niet het 
geval. 

Ik beschouw twee gevallen apart : 


a) We rekenen in gehele getallen (zgn. 

integers). Het is dan denkbaar een 
zo groot getal als argument mee te 
geven dat het beeld voor de DAI te 
groot wordt, De functie (en de bijbe- 
horende inverse) bestaan dan alleen 
als het domein beperkt wordt. 


b) We rekenen in getallen, die in de 

floating point notatie zijn geno- 
teerd. We zien nu als we het origineel 
maar groot genoeg nemen dat er geen 
verschil meer zal zijn tussen de beel- 
den die twee verschillende originelen 
geven. Er is in dit geval dus geeneens 
meer sprake van een functie laat staan 
een inverse. 


Het voorafgaande komt omdat een compu- 
ter nu eenmaal discreet werkt. Het is 
daarom ook belangrijk er bij bepaalde 
problemen aan te denken dat - alhoewel 
onze theorie goed is - het best eens 
zo zou kunnen zijn, dat de fout die we 
vaststellen door dat discrete werken 
wordt veroorzaakt. 

In de 'normale' praktijk valt het ge” 
lukkig nogal mee. 
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Een test 


Laat uw DAI maar eens een willekeurig 
getal door twaalf delen. Het resultaat 
weer door twaalf delen en zo door tot 
we in totaal honderd maal door twaalf 
gedeeld hebben. 

Vervolgens gaan we dat resultaat met 
twaalf vermenigvuldigen enzovoorts tot 
we honderd maal met twaalf vermenig- 
vuldigd hebben, 

Iedereen ziet dat het uiteindelijke 
resultaat gelijk zou moeten zijn aan 
het oorspronkelijke uitgangsgetal, 
Maar niet de DAI want die zal ‘braaf’ 
nul als resultaat oplepelen, 


19 INPUT WAARDE 

29 FOR 151 TO 199 
59 WAARDESWAARDE / 12 
40 МЕХТ 

Do FOR Ізі TO 199 
ea WAARDE=WAARDE 12 
76 NEXT 

ga PRINT WAARDE 

99 GOTO 19 


Heeft U de beschikking over een andere 
computer die een grotere nauwkeurig- 
heid heeft dan de DAI zodat het boven- 
staande programma bij ‘normale’ waar- 
den toch terugkomt bij de opgegeven 
waarde vervangen we honderd door een 
groter getal (bv duizend) en dan gaat 
het toch weer fout. 


De Inver sen 


Welke zijn nu de functie op de DAI die 
een inverse hebben ? Uit de getoonde 
kolommen zijn dat de volgende paren : 


ASC ^ CHRE 
VAL * STR$ 


en eventueel kunnen we nog denken aan 
# - HEX$ 
ASC еп CHR 


ASC is een afkorting van ASCII dat op 
zijn beurt weer een afkorting is voor 
American Standard Code for Information 
Interchange, Een standaard code dus om 
informatie uit te kunnen wisselen, die 
in Amerika is afgesproken. De afspraak 
betreft in tegenstelling tot wat velen 
menen niet de 256 magelijkheden om de 
vulling van een byte als karakter weer 
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te geven, Ор zijn hoogst kunnen we 
zeggen dat de 128 mogelijkheden die de 
eerste zeven bits bieden redelijk 
gestandaardiseerd zijn. 

Zijn we echter streng aan het contra= 
leren dan blijkt in de praktijk dat we 
alleen de codes van de hoofdletters, 
de kleine letters, de cijfers en de 
meest voorkomende leestekens als де- 
standaardiseerd kunnen beschouwen. 
Zelfs vrij algemene codes als 8 voor 
backspace en 12 voor schoon beeld 
blijken niet altijd te kloppen. 

Zoals bekend wordt bij de DAI de set 
karakters van de eerste 128 mogelijk- 
heden vrijwel identiek herhaald in de 
tweede 128 mogelijkheden, 


Als origineel voor de functie ASC kun- 
nen we elke gewenste tekstvariabele 
meegeven. Het beeld zal echter altijd 
slechts de ASCII-waarde van het eerste 
karakter van die tekstvariabele zijn. 

Hieruit kunnen we al direct zien dat 
hier dus duidelijk geen sprake kan 
zijn van een inverse daar de functie 
geen bijectie is, Er is zelfs nog iets 
wat in tegenspraak met met de een-een 
gedachte : Als de DAI gevraagd wordt 
naar АЗСА) en we krijgen als resul- 
taat @ weten we niet eens zeker dat de 
tekstvariabele A$ met een karakter met 
code nul begint, We krijgen namelijk 
hetzelfde resultaat als A$ leeg is ! 


CHR$ komt van CHaracteR string. 

Het dollarteken wordt uitgesproken als 
string en geeft aan dat het resultaat 
een tekstvariabele is. In dit geval 
bestaat deze tekstvariabele uit maar 
een karakter, 

Het domein van deze functie is de ver- 
zameling getallen @ tot en met 255, 


VAL en STR 


Dok bij VAL (van VALueswaarde) en STR$ 
(van STRing) lijkt de simpele uitleg 
erop, dat we hier met twee inversen te 
maken hebben. 

De VAL heeft als argument een tekstva- 
riabele die een getal voorstelt, Het 
beeld is de getalswaarde van het in 
tekst opgegeven getal. 


voorbeelden : 


PRINT УА. ("4,6") geeft 4.6 
A=" 3, A" PRINT VAL (AS) DÉI 3.2 
Dëse"), 3": CeVAL (BE) PRINT C s3 1.3 





De STR$ heeft als argument een getals- 
waarde en als beeld een tekstvariabele 
die in karakters het getal voorstelt. 


voorbeelden : 


PRINT STR$(2.3) geeft ' 2.5 
25,6:PRINT STR$ (A) T ° 5.6” 


N.B. De aanhalinastekens (quotes) zijn 
geplaatst om de spatie voor het getal 
zichtbaar te maken. 


We krijgen, nu we dus geen moeilijkhe- 
den hebben gezien, het idee dat VAL en 
STR$ elkaars inverse zijn. Maar niets 
is minder waar. 

De eerste problemen verschijnen als we 
met STR$ een integer getal opgeven als 
argument, De STR$ blijkt dan als beeld 
niet de getalswaarde te geven maar al- 
tijd de floating point vorm van deze 
waarde, Overigens mogen de tekstvaria- 
belen best met * beginnen of een zeker 
aantal spaties aan het begin hebben. 


Maar dan de VAL. Ook hier blijkt het 
resultaat opgegeven te worden in floa- 
ting point notatie. Maar ernstiger is 
het feit dat getalsteksten die met een 
- of een spatie begint niet wordt ge- 
accepteerd, 

De foutmelding die we bij toch pagen 
krijgen is zelf fout: ” INVALID NUMBER’ 
het had bv “INVALID TEXT” moeten zijn, 


Een laatste fout uit de ROM's die ik 
moet melden is het gebruik van + еп; 
Tik maar eens PRINT STR$(6)TSTR$ (8) in 
Je zou nu verwachten ° 6.0 8.9’ te 
zien te krijgen. Maar nee, de DAI ver- 
rast ons met ° 8.0 8.0”, Gebruiken не 
3 in plaats van + is het resultaat wel 
zoals verwacht. 


Ж еп HEX: 


Dit zijn nu wel echte inverse functies 
maar bij DAI heet # geen functie, Het 
$ ~ teken (uitspraak nummer, hekje, 
hex of hexadecimaal; mijn voorkeur 
gaat uit naar hex) geeft aan dat het 
er achter volgende getal opgegeven 
wordt in de hexadecimale of zestien- 
tallige notatie. Dit geldt alleen bij 
intikken, daar de interne notatie in 
integervorm is. 

De HEX$ waar de haakjes wel nodig zijn 
is de inverse van # en accepteert dus 
getalwaarden als origineel en levert 
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teksten af waarin de gewenste getallen 
in hexadecimale code staan, 

Dezelfde fout die we net bij STR$ had- 
den geconstateerd ten opzichte van het 
gebruik van de + geldt cok voor HEX$. 


SPC еп TAR 


Deze beide functies hebben eigenlijk 
een verkeerde naam. SPC# еп TARS zou 
beter zijn daar het beeld een tekstva- 
riabele is, 

SPC is een samentrekking van het woord 
SPaCes (=spaties) en TAB een afkorting 
van TABulator. 


Doen we А%=5РС(2%) dan is A$ een tekst 
geworden die uit 23 spaties bestaat. 
Doen we A$zTAB(23) dan is A$ een tekst 
geworden die uit 23 spaties bestaat. 
Er is zo te zien geen enkel verschil. 
We kunnen het verschil echter zicht- 
baar maken door voor de toewijzing de 
opdracht CURSOR 20,10 te geven, 

Let er op dat dat dan wel op dezelfde 
regel gebeurt. 

Beide functies hebben als beeld een 
tekst bestaande uit een aantal spa- 
ties, Het aantal is bij SPC het aantal 
dat opgegeven wordt als origineel. 
Bij TAB is het aantal spaties gelijk 
aan het verschil tussen het opgegeven 
aantal en de waarde die de horizontale 
positie van de cursor aangeeft. 

In feite heeft de ТАН dus niet een ar- 
gument, maar twee argumenten, Een van 
die twee namelijk de cursorpositie 
wordt door de DAI gefourneerd. 

Is deze laatste waarde groter dan de 
opgegeven TAR-waarde zal het resultaat 
de lege string zijn. 


Grappig is nog te vermelden dat we P$ 
wel als 255 spaties kunnen definieren 
met SPC(255) maar nooit op het scherm 
kunnen afdrukken. Probeer maar ! 


LEN 


LEN komt van LENgth. 

We geven een tekstvariabele als origi- 
neel ор en krijgen de lengte ervan 
uitgedrukt in een getal dat het aantal 
karakters vertegenwoordigt. 


LEFT en RIGHTS 
Streng wiskundig gezien staan deze 


functies ook niet in de juiste kolom. 
Het klopt dat ze een tekstvariabele 
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als beeld hebben maar het origineel is 
niet alleen een getalsvariabele. Er is 
nag een tweede argument, net als bij 
TAB, Dit tweede argument is een tekst- 
variabele, 

We kunnen dit als volgt interpreteren: 
Als we de tekst als vast gegeven Бе- 
schouwen, kunnen we vanaf dat moment 
het getal als origineel nemen. De 
plaats in de rechter kolom klopt dan. 
Fixeren we echter het getalj kunnen we 
daarna de tekst gaan varieren. 

Ze zouden dan in een aparte kolom moe- 
ten komen te staan, 

De syntax is simpel: LEFT$(AS$,1) resp. 
RIGHTS (A$, 1) met Af de tekstvariabele, 
waarvan de linker resp. de rechter I 
karakters als beeld toegevoegd moeten 
worden, De waarde van I is mimimaal @ 
en maximaal het aantal karakters van 
de tekstvariabele die argument is, 


MIDS 


Een nog vreemdere eend in de bijt is 
de MID$, Hier dienen namelijk drie ar 
gumenten bij te worden opgegeven, 

Te weten de tekstvariabele waaruit het 
beeld gedestileerd moet worden, en een 
tweetal getalsvariabelen die aangeven 
hoeveel karakters er moeten worden 
overgeslagen en hoeveel karakters er 
in het beeld moeten zitten. 

De syntax is dus MID$(A$,I,J) met I 
karakters overslaan en het beeld is J 
karakters lang. Voor I en J geldt hier 
dat ze samen maximaal het aantal kar 
rakters mogen zijn dat 8% lang is. 


Een ezelsbruggetje om te onthouden dat 
I het aantal karakters overslaan is en 
J het aantal karakters , dat we in het 
beeld wensen te hebben. 

Bij alle drie (LEFT$, RIGHTS еп MID$) 
is de tekst als eerste genoemd en de 
lengte van het beeld als laatste, De 
tussenstaande waarde 1 moet dus wel 
het aantal plaatsen overslaan zijn. 


WARP TR 


VARPTR is een samentrekking van de 
woorden VARiable PoinTeR. 

Om echter nu alle zaken die er mee te 
maken hebben op te sommen rest mij te 
weinig plaats. Ik zal er de volgende 
keer mee beginnen, temeer daar het een 
mooie brug is naar de laatste kolom, 


Frank H, Druijff 
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0 REM EPROM-PROGRAMMER 
| H REM FINN 
Е 3 12 REM 
EBES = Wo REM 
2400 MOL L3 REM NAAM VD, SCHIJF : EPROM 
18 REM AUTEUR: L, VANTOURNHOUT / û CALUWAERTS 
2 REM VERSIE 24 JULI 1984 
% CLEAR e000:COLORT 01500 
45 DIM Те(5.0) FEMRQ/O(5.0) :FOR Х0/0-1 TO 5:READ To (XQ/0) MEMRO/0(X0/0) : NEXT 
Aanpassing en uitbreiding van de EPROM-programmer 6 1F РЕЕК(# 000 ) #5 THEN 60 
E S я 47 POKE 4131,3:PRINT DLOAD OEPROM,ETNG:POKE 59131,1 
V. G. Knoops in dainamic 13. 8) POKE 98 1Р4 1:РОКЕ 481Ғ0 АВ:РОКЕ #8 1FA „О:РОКЕ GB FR ФАО 
8 HALT TINE 50:007 ef 3,80 :OUT «€2,0:00T e£0,0:0UT 941, 
1 2% AQ/QsGETC: WAIT TIME 5 
EM 100 КЕМ 
De hierin beschreven programmer heeft volgens mij twee onvolkomenheden nl : 12 REM PROGRAMMA-MENU 
03 REM Eaves 
1) Hij werkt niet volgens D C E - concept wat betekent dat hij niet te 104 PRINT CHRa{12):TYPEa«Ta(PEEK(%8 1F 4)) 
e g у А E 105 CURSOR 30,20:PRINT al YPE zo: TYPEn 
gebruiken is door DAI-gebruikers die met een floppy-disk werken. 408 CURSOR 15 18:PRINT di — СНЕСКо 
19 PRINT o L 10А05 
ДЕ А ni PRINT P PROGRAM 
2) Bij het inladen met de "load" en "Next load" instructie gaan de 12 PRINT 5 R READ ў 
origines verloren. Dit geeft problemen bij grote programma's 13 PRINT о Т ТҮРЕ ЕРКОМо 
> w : PAP 114 PRINT U UTILITY 
met veel subroutines die elk een eigen "origine" hebben. 15 PRINT ° ү VERIFYO 
120 PRINT ИВРИТ п WAT WENST U otha 
š 10 IF Agen 0070 200 
Als oplossing voor het tweede probleem werd afgestapt van de assembler - 182 IF AAS GOTO 20060 
subroutina "Load" en "Next load" en vervangen door. het basic-programma 46 IF Кокоо GOTO 500 
"Loader-dai "e 37 7% 18 ТЕ AgscRa GOTI 600 
е inamic , waaraan als supplement een verschuiving werd toege- 150 IF Ae io GOTO 700 
voegd. 152 IF Aa=aln GOT) But 
154 IF Аг-о/о GOTO 900 
до Я T 8070 100 
Deze is interessant als de EPROM niet op adres ZZ Ø Ø Ø 0 begint. 20 REM 
21 REM CHECK IF THE EPROM 1S ERASED 
23 REM ———————— 
Om aan het eerste probleem te voldoen, werd aan het schema een "8255" 210 PRINT CHRo(12):CUR 508 15, 20:PRINT aC НЕСКа 
en een"adres-decoder" toegevoegd. (zie bijgevoegd schema) 220 G0SUB 1000 
ч 236 CALLM «6090 
28 AQ/QsPEEK(SETFF J:1F Ай/0-0 THEN PRINT CHRa(12) :PRINT o0Ka:G0TO 105 
Dit bracht ook enkele kleine wijzigingen mee in zowel de basic - als - 250 PRINT CHRo(12):PRINT HOT ERASEDG:GOTO 105 
Si REM 
assembier-programma's. 3/1 REM PROGRAMMING THE EPROM 
95 КЕМ 22................... 
50 PRINT CHRA(12):CURSOR 15,15:PRINT GPROGRAMS:CUR SOR 15 13:PRANT BUSY o 
52G GOSUR 1050 
530 CALLN «04 
5. GOTO 80 
600 КЕМ 
81 REM READING THE EPROM 
802 REM БЕНЕН 
614 PRINT Cal 12 СИВ 509 15,15:PRINT KREADO 
621 80508 1000 
630 CALLM #8 158 
50 6013 100 
Y REM 
K1 REM TYPE EPROM 
EPROMPROGRAMMER DAInamic 85 — 
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900 
930 
940 
950 
1000 
1101 
1002 
1003 
1064 
1910 
1026 
1030 
1050 
1060 
ко 
1080 
040 
1100 
1.000 
10001 
20090 
20001 
20002 
2.010 
20020 
20144 
20190 
21200 
20219 
21020 
0221 
20230 
2024 
20250 
2:260 
20281 
2290 
221 
20300 
20310 
20320 
20330 
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m 


REM aaa 

PRINT CHRa( 12): SOR 15,15: PRINT GTYPEG 

FOR Х0/0-1 TO 5:CURSOR 20,13-XQ/O:PRINT Ta(X0/0) :NEXT 
CURSOR 15,5:1NPUT oKIES EEN ТҮРЕ Hig:PRINT 

Y0/0.0:F0R Xü/0.1 TO 5 

IF INasle(X0/G) THEN Үй/0-Х0/0 

NEXT 

17 Ү0/0-0 THEN PRINT CHRa(12):PRINT n TYPE ONBEKENDG:GOTO 108 
POKE 8B 1F4,YO/O:POKE ex 1Р0, (КЕМАСИ (ҮС) 198 34090}/255.9 
REM INSTELLEN PARAMETERS VOOR GEWENSTE TYPE 

PRINT CHRe(121:G019 Di 

REM 

REM TERUG GAAN NAAR UTILITY 

REM osse sesse HD N 

CALLM 88105 

REM 

REM KOMTROLE OF DE EPROM JUIST 15 INGELEZEN 





PRINT CHRa(12):CURSOR 15,15:PRINT VE 
G0SUB 1000 

CALLM 88190 

AO/GSPEEK (ФВ TFT IF Aü/G«Q THEN PRINT CHRo(12):PRINT oOKo:6013 105 
PRINT СНК (12) :PRINT сБАбо:6 GTO 165 

REN 

Ча! 





REM GICB=GIC CONTROL BYTE: ECB EPROM CONTROL BYTE 

REN ВВ. RELAIS BYTE 

G1CBO/ 690) 

ТЕ TYPEm=en2732n THEN ЕСВ0/0-980:580/7-480:0070 1100 

ЕСВО/0 8920 :RBO/0 38:00 70 1190 

REN INITIATE 8255 FOR PROGRAMMING 

G1CBO/0 380 

17 ТУРЕ а:о27320 THEN ЕСЕ0/0-400:880/0.690:0072 1125 

IF TYPE a: 025325. THEN ECBO en Bn 0-50 :6 070 1100 
ECR6/0.658:RB0/02950 

OUT 9£3,61C80/0:00T E2 RRO/O:POKE "6 1FE,ECPO/O WALT TIME 25:8E TURN 
DATA 2712048, 2516, 2048, 2732, Mi, 2532 4096, 2758, 1024 

REN TYPE, MEMORY RANGE 

REN 

REM LOADER 

REM mene 

PRINT СНВи( 12) :DPFLO/G24 RECO /G29 
PRINT BEGINADRES EPROM (HEX): o::INPUT 80/0 

FAORU/0 «3002 :L 1NLO /Q-s9FFF АННО i 

PRINT CHRal 12) 

FLEG/GeFADRG/G+(PEEK(FAGRO/8-2) 34. 8,0 PCR ателер FILE LENGTE 
REM 

REM INTER RECORO ROUTINE 

Lu ese see Ee 

GOSUB 24000:1F BYTO/O,LT. In 6070 
00508 24000:1F ВУ LT. Ein GOT 









80518 21000:1F FAORG/O.ST,-FLEQ/O Та г PRINT СН a(12):5010 20960 
IF BYTO/ü,LT, GT FF THEN PRINT CHRu(12):G0TO 20960 

REM 

REM LEES ORIGIN EN SOORT RECORD 





Зако ГОРЕ sRECO/DSRECG/D 1,0 

PRINT PRINT RECORD o:RECQ/R: 

GOSUS 21000:0R60/0-8 YT, 

80508 21000:0kGQ0/0«0RGO/o. (второ SHL Я) 
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2340 
20349 
20350 
20351 
20360 
20310 
2400 
240 
20420 
2430 
20440 


ҰТА 


2450 
20870 
20530 
20490 
2584 
20580 
20595 
2600 
20610 
2520 
2630 
20635 
20650 
20650 
20670 
20700 
20710 
2720 
2160 
2750 
20760 
20710 
20780 
2190 
20191 
20800 
20820 
20910 
2920 
2930 
2450 
2960 
21000 
21010 
21026 
21900 
2910 
21920 
21936 
22060 


60508 21000:!F 8770/0,17,,61.0.0 GOTO 20600:REF NAAR RES-TYP 


REM 

REM PROGRAM TYP 

REM avonne 
PRINT o PROGRAM ТҮРЕ» 


REM PADRO/O-RAORG/O 

GOSUB 21000:LN60/0-8 YTO/Q-1 

FOR ВАОКО/0ОКО0/0 +4000 -В0/0 TO ORGO/0+LNGO/04#A000-B0/0 
00508 24000:S0SU8 22000 

iF CURX.GT.G.GOTO 20450 

PRINT НЕХа(КАОК/ а оп: 

PRaza atl F BYTO/D LT = THEN Die Р ара 

PRa=PR as НЕХ (В VT OD PRINT PRa: 

IF RAGRO/O ТАМО ef et THEN PRINT 

NEXT 

6010 26800 

REM 

REM RESERVE TYP 

REN ee 

GOSUS 21000:FL30/0«8 YTO/O 

60508 21000:CHARO/G-B УТО/О 

60503 210Q0:AREAG/Q-BYTO/O 

GOSUE 21000:AREAO/Q-ARCAQ/Q&(BRYTO/O SHL 8.0) -1 

PRINT с RESERVE ТҮРЕо 

ІР FLOC/O.LT..6T.0.0 GOTO 20700 

RADRO/G«ORGQ/O« AREAQ/G 

GOTO 20740 

FOR RADRO/G-ORGO/D«AQGO-BO/0 TO ORGG/Q+AREAU/0+A000-B0/0 
BYTO/G-CHARGO/O:GOSUE 22000 

NEXT 

PRINT KAREA  o:HEXa(ORGO/0):a n:HEXm(ORGO/0+AREAD/0}: 
IF FLGO/GE0 THEN PRINT n SKIPPED IN в: :6070 20800 
PRINT a FILLEG WITH o: 

IF CHARO/G LT ef THEN PRINT co: 

PRINT HE el EHS 0/0): 

REM KONTROLE CHECK SUK 

REM изродите VR 2 

CHSO/0- SURQ/Q ТАМ eFF:GOSUP 21000 

IF CHSG/Q,LT, GT, 8YTU/Q. THEN PRINT СН (12 :РВАНТ oCHECKSUM ERRORo:GOTO 20960 
PRINT 

GOTO 20220:REM VOLGENS RECORD 

0072 20920 

PRINT CH&g( 12; PRIMT BAP ERRORG 

6910 105 

8YTO/O-PEEK(FADRU/Q) :FADRO/OSF ADRO/O. 1.0 

SUMO/0- SUNG/0+B YTO/O 

RETURN 

GO/O-GETCSIF 60/0-0 GOTO 21900 

PRINT ПР Gü/U-ASC(nYa) THEN AG/0=0:RETURN 

ТЕ 60/0-А9(ов a) THEN Ао/п 1: ВЕТОКМ 

AG /G=2 RETURN 

IF RADRO/O LT @LIMLO/G OR RADRO/O GT «LIMHO/O THEN PRINT sPRINT VIOLATION AT ADRES о: НЕХа 











C (RADRG/G) SEND 


22010 
2202€ 


ІР OPFLO/G.LT,.GT.O THEN POKE RA08C/O,BYTG/O 
RETURN 
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PAGE 01 


001 
002 
003 
DU 
015 


026 
027 
028 
029 
030 
031 
032 
033 
13% 
035 
036 


038 
034 
HO 
Di 
042 
043 
0% 
045 


UAT 
Qiu 


050 
051 


052 
053 
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в  KONTROLEPROGRAMMA VOOR HET VERIFIEREN 

в VAN HET UITGENIST ZIJN VAN EEN EPROM 
ORG — :8000 

a 

EPROM EQU Eu ADRES EPROM KAART 

впававасвававевевявавапавававявовевавваве 

KONTR EQU — EPROM.3 PROGRAM REG 8255 


8 


8 

LEES EQU — :90 STURING POORTEN 
SCHRYF EQU — 180 

в MObE-O BIT 2.0 NORMALE POORT 

е POORT С.ОЧТРИТ BIT 040 

е POORT B-OUTPUT BIT 1.0 

я 

e MODE «00 В1 7561760 

е NORMALE POORT 

в POORT Ca OUTPUT BIT3 a0 

в POORT Ae INPUT VOOR LEES BI The1 

в POORT А. OUTPUT VOOR SCHRYF BI T4«0 


а 
n b117.1 


ввванявавнававяваяоввавепозвавевяваензеваев 


A 
PRTA EQU — EPROM,O ADRES POORT A 
а BIT 0-7 ZIJN DATA LIJNEN 


D 
PRTB EQU EPROM+1 ADRES POORT В 
я BIT 0-7 ZIJN LAAGSTE AORE SLI JNEN 

я 

PRIC EQU — €PROM,2 AURES POORT C 
m ВІТ (1-2 HOOGSTE ADRESLIJNEN AR-A10 
а BIT 3 NOTCC/PROG VOOR 2715 2516 2758 


D A11 VOOR 2732 EN 2532 

а BIT A NOTOE VOOR 2716 2516 2758 

в NOTCE/NOTPROG VOOR 2732 

а NOTOE/NOT PROG VOOR 2532 

e BIT 5 °1° VOOK 2716 2516 2758 2532 
а NOTOE /VPP VOOR 2732 


а BIT 6 PROGRAMMEERRELAIS 

в BIT 7 KEUZERELAIS 

D 
вввевввеевавянаввеваввявадвевавевевавававввево 
а 


n 

CHB EQU at — CHECKBYTE 

а OP 0 VOOR ALLE BYTES OP FF 

ECB EQU Ant KONTROLE BYTE 

а (STUREN RELAIS) 

SAWA — EQU —:AQ00  STARTADRES WERKRUINTE 


е 
MEHR ЕШ — :B1FD MEMORY RANGE 
в RELATIEF TOY SAWA 


EPROMPROGRAMMER 


PAGE 02 


05 
055 
056 
057 
058 
059 
%0 
(61 
062 
%3 
(5% 


072 

073 8000 
07% 8001 
075 8002 
076 8003 
077 800% 
078 8006 
079 8008 
080 

081 8008 
082 BOGE 
083 800F 
064 8011 
085 

086 8014 
087 BO16 
088 8017 
059 

090 BUTA 
091 ROIC 
092 

093 8010 
094 

095 8020 
096 Bu22 
097 Bu25 
098 8026, 
099 8028 
Ха 8028 
01 802C 
#2 8020 
103 8030 
1 8031 
105 8034 
Wb 8036 


F5 


600808 


ЗАРЕВ1 
47 
UENO 
210040 


1681 
59 
COC 804 


16E2 
58 


COCROR 


15Ё0 
CDEUDB 
7B 

FEFF 
C23CRO 
23 

03 
3AFUB1 
BC 
C2158U 
300 
32FF81 


FADR D ` :3002 STARTADORES OBJFILE 


a 

DSAOF EQU ҰЯҒА DSAOF 

в DESTINATION START ADORES OBJ, FILE 

a OBJ, FILE 1S LOADED FROM THIS ADDRES 

в IN WORK AREA 

EXOR EQU :B4FC EXOR BYTE USED IN PROGRAM 
FLEA DU — :P1F8 FILE LENGTH ADDRES 

е 

EXREG EQU pts EXTRA REGISTERS 

я 

RWOP Еш :DAC8 REAL WORLD OUTPUT 

RWIP EQU :DRBEO REAL WORLD INPUT 

в REGISTER D „ADRES OP DCE 

s REGISTER Е «DATA OP DCE 

а 

в 
вавевеваавевяввовеввававававвевевеввекневекаевзвима: 


в 
CHECK PUSH PSH 


PUSH В 

PUSH D 

PUSH H PUSH ALL 

WI "mm 

MYI E,LEES 

CALL КМОР 8255 GEPROG OM TE 
в LEZEN 

LDA ECB KONTROLEL | JNEN 

MOV ВА 

WI CO 


LX! Н, ЗАМА TELLER EINDE EPROM 


в 

МЕХТС МУ: — D,PRTB STUREN EPROM POORT В 
HOV EC ADRES AQ TOT A7 
CALL RWOP DCE „OUTPUT 


MVI D,PRTC STJREN POORT C 

MOV ЕВ AORES AR TOT A11 EM 
a KONTROLEL t НЕМ 

CALL КОР DCE OUTPUT 


МУР O,PRTA LEZEN EPROM POORT A 
CALL ЯР DCE INPUT 


MN АЕ 

CPI {РЕ 

JNZ NOTER МОТ ERASED 
хон 

INX B 

LDA МЕНЕ 

СИР H ?EINDE EPROM 
JHZ wu 

MYI 4,0 VLAG ALLES OK 
STA CH 
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07 8039 C341E0 
08 BU3C EFF 
109 ВОЗЕ 32FF81 
10 8041 £1 

111 8042 01 

112 8043 C1 

113 8044 F1 

114 8045 Cu 

15 8046 F5 


117 8047 CS 
TR BOAR 05 
18 8049 E5 
120 BUSA 010230 
121 8040 340030 





123 8060 67 
124 8051 3A0130 


126 8054 БР 
127 8055 09 

123 8056 28 

129 B057 28 

130 8058 277581 
131 8058 2AFAB1 
132 BUSE ER 

133 FOSF OA 

134 6060 FEQU 
135 8062 C20480 
136 8065 03 

137 BORG GA 

138 8057 ЕЕОО 
139 8069 C20A80 
140 8066 03 

141 8060 GA 

142 ROGE FEFF 
143 B070 C20280 
14h 

145 

446 8073 247881 
147 8076 7C 

148 2077 88 

149 8078 040280 
150 8076 C28380 
151 BOTE 79 

152 ВОТЕ 80 

153 BOBO 020280 
15% BON 217581 
155 


JMP 
NOTER Му! 
STA 
EINDE РОР 
POP 
POP 
POP 
RET 
LOAD PUSH 


PUSH 
PUSH 
PUSH 
Ud 
LOA 


HOV 
LOA 


HOV 
DAD 
DCX 
DCX 
SHLD 
LHLO 
XC HG 
NEXTL ШАХ 
СР 
Ж? 
1АХ 
LOAX 
CP! 
JNZ 
INX 
LOAX 
СРІ 
JN7 
m CONTROL IF 
B 
LHLO 
MOV 
CMP 
X 
JN7 
HOV 
Cup 
ж 
NOTJET LXI 


EINDE 
A, FF 
CHB VLAG МЕТ GEWIST 


PSH 


РЗ LOAD OBJFILE IN 
WORKAREA 


= OD 


В ,FAOR 

FADR-2 HIGH ORDER FILE 
LENGTH 

HA 

FAOR-1 — LOW ORDER FILE 
LENGTH 


xor 


H 
FLEA 
D SAOF 


B 


:0 

GAPE GAP ERROR 
B 

8 

10 

САРЕ 

8 

8 

:FF 

FL FILE LOADED 
END FILE 15 REACHED 


FLEA 

дын 

8 

FL FILE LOADED 
NOTJET 

Ac 

L 

FL 

H,EXREG 


в EXREG CHECKSUM/EXR et COUNTER /EXR 2? 


156 в LENGTH RECORD 
157 8086 36FF MI И, РЕ CHECKSUM BYTE 
158 Bu88 03 INX 8 
159 8089 ОА LOAX B 
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%0 808A 86 
151 8088 77 
162 2080 03 
163 8030 UA 
64 ВОВЕ 86 
b5 808F 77 
166 8090 03 
167 8091 ОА 
168 8092 FEU 
49 8024 CAAUBO 
110 8097 03 

111 8098 03 
172 8099 03 
173 8094 03 
174 8096 03 
115 BOSC 03 

176 8090 С35Ғ80 
111 8040 03 

176 80A1 ОА 

179 RUA? 86 

180 ВОАЗ 71 

181 BOAL 23 

182 BOAS 3600 
183 BOAT OA 

184 ВОАВ 23 

185 8049 77 

186 B0AA 28 

187 BOAB 28 

188 BOAC 03 

189 BQAD ОА 

190 BUAE 12 

191 BOAF 13 

192 8080 86 

13 8 81 77 

194 8:82 3AFDB1 
195 8085 BA 

196 8086 CAE 280 
197 8089 23 

198 BORA 34 

149 6086 7E 

20 ВОВС 23 

201 BUBU ЕЕ 

27 BOSE С2АА80 
203 BACI 03 

2% 8002 0А 

205 8uC3 28 

206 800% 28 

207 BUCS ВЕ 

WA BCG C2EABO 
219 RUCA 68 

20 BUCA 62 

711 8.C8 22ҒА81 
712 ВОСЕ 03 


A00 
MOV 
INX 
ШАХ 
A00 
MOY 
{NX 
LDAX 
CPI 
J1 
INX 
INX 
INX 
INX 


ІХ 
INX 


JAP 
NORES INX 
LDAX 
ADD 
BOY 
INX 
MVI 
LOAX 
INX 
MOV 
NEXTR DCH 
ocx 
NX 
ПА 
STAX 
INX 
400 
MOV 
LDA 
САР 
J1 
VHX 
INR 
MOV 
1АХ 
СМР 
JN7 
Lu 
им 


DEX 
CMP 
JN? 
моч 
HOY 
SHLD 
INX 
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ORES RESERVE TYPE NOT USED 


RESERVE TYPE 15 IGNORED 


„0 CLEAR COUNTER 
LENGTH RECORD 


EMREX МЕМ, RANGE EXCEEDED 


EXTB NEXT BYTE 


CONTROL OF CHECKSUM 


HECKE CHECK SUNERR OR 


DSAOF ADJUST OSAOF FOR 
8 NEXT LOAD 
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713 ВОСР CIFBU 
714 8002 3Е00 
715 8008 32FFB1 
Ne 8007 СЗЕЕВО 
217 BODA ЗЕОЕ 
Na BDE 32FF81 
719 600F СЗЕЕЗО 
20 8062 ЗЕР. 
224 But 32FF61 
702 BOET C3EFBO 
703 BOER JEFF 
22% ВОЕС 32FF81 
m5 BOEF Et 
2% BOFO 01 
21 BOER C1 
28 BOF? F1 
709 BOF3 C9 
230 ВОРА F5 
231 
232 BOFS C5 
233 OFS 05 
234 BOF? ES 
235 ROFS ЗАҒЕВ1 
236 BOFB 61 
237 BOFC 2Е00 
238 ВОРЕ FESR 
239 8100 CA0B81 
20 8103 3Е10 
^1 8105 32FCB4 
22 8108 C31081 
^3 B108 GEOR 
244 В 100 32FCB4 
25 8110 010040 
26 8113 16E3 
247 8115 1Е80 
28 8117 С0С808 
29 
250 8114 ОА 
251 8118 FEFF 
252 8110 CA4DB1 
253 
254 8120 5f 
755 8121 16Е0 
256 8123 COCBÜB 
251 
258 8126 50 
259 8127 16Е1 
BU 8129 COCEDB 
ж 
52 8126 5С 
ЪЗ 8120 16E2 
254 B12F (00808 
255 8132 C5 
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JMP NEXTL 
FL ү An 
STA CH 
JMP END 
GAPE MYI Af 
STA CH 
JMP END 
HEMREX AVI А, FO 
STA CHB 
JHP END 
CHECKE wi AFF 
STA CH 
END РОР H 
POP 0 
POP В 
POP PSM 
RET 
PROG PUSH PSN 
а 
PUSH B 
PUSH 0 
PUSH H 
LDA ECB 
HOV HA 
MYI Lu 
СР — :58 
Jz E6 
MVI А, 210 
STA EXOR 
JP ху 
D AVI À,:8 
STA EXOR 
£32 LXI В, ЗАМА 
MVI 0, KONTR 
Мур Е, SCHRYF 
CALL RHOP 
е 
НЕХТР ШАХ 8 
cpt СЕ 
ja МОРАО 
а 
MOV E‚A 
ni D,PRTA 
CALL МОР 
a 
HOY EL 
ни D,PRIB 
CALL RWOP 
a 
HOY EH 
ni D,PRIC 
CALL RWOP 
PUSH 8 
EPROMPROGRAMMER 


FILE LOAD 


PROGRAMMING OF 
THE EPROM 


8255 GEPROG ON TE 
SCHRIJVEN 


NOT NECESSARY TO 
PROGRAM 


DATA 1S APPLIED 


LOW ADDRES 1$ APPLIED 


PROG SIGNAL 15 APPLIED 
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%6 8133 0607 
2671 8135 DEER 
%8 8137 00 
29 8138 10 
270 8139 00 
271 813A 00 
712 8138 C23781 
213 E13 05 
214 B13F C23581 
215 8142 C1 
216 B143 3AFCB1 
777 8146 AC 
218 

219 8147 SF 

28 8148 16Е2 
281 815А (06508 
282 

283 8140 03 

284 BISE 23 

285 B14F AA DÉI 
286 8152 88 

287 8153 (21481 
288 8156 Е1 

289 8157 01 

230 8158 C1 

291 8159 F1 

292 815A C9 

793 8158 F5 

24 815С CS 

295 B150 05 

Nh R15E E5 

297 B15F ЗАҒЕВ1 
238 B162 67 

209 8163 2Е00 
90 

Di 8155 16£3 
302 8167 1590 
22 8169 СОСВО8 
Di 

215 В16С 0100A0 
Db B16F 16Е1 
37 8171 50 

DR 8172 С0С808 
De 

310 8175 16Е2 
311 8177 SC 

312 8178 CUC808 
313 

314 B178 16Е0 
315 8170 COtODB 
316 8180 78 

317 

318 8181 02 


AVI 
LOOP2 МҮ! 
LOOP МОР 
NOP 
NOP 
DCR 
JNZ 
DCR 
JNZ 
POP 
LOA 
XRA 


HOY 
MY! 
CALL 


в 

NOPROG INX 
INX 
LDA 
CHP 
м 
РОР 
РОР 
РОР 
РОР 
КЕТ 

READ PUSH 
PUSH 
PUSH 
PUSH 
LOA 
MOV 
MVI 


МУ! 
HU 
CALL 


LXI 
NEXTR MVI 
HOV 
CALL 


AY! 
HOV 
CALL 


AV! 
CALL 
HOV 


LOOP 50 85ЕС 


с 
LOOP1 
LOOP2 


EXOR 
H STOP PROGRAMMING 


EA PROG SIGNAL 15 INVERTED 


, 
D PRIC 
RWOP 


MEHR 


NEXTP 


PSY 


РМ READING THE PROM 


f^ = m = oco w 


C => со 


D ,KONTR 
Е LEES 
RUGP 


8 , SAWA 
D ,PRTE 
EL 
RWOP 


D,PRIC 
; 

ROP 

0 „РАТА 


АР 
AE 


STAX В 
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319 8182 
3201 8183 
21 

22 818% 
33 8187 
328 B148 
25 8188 
36 B18C 
97 8180 
328 B1BE 
329 B1SF 
330 8190 
334 8191 
332 8192 
333 8113 
Bs 8194 
335 8196 
336 5198 
331 

338 8198 
339 81% 
30 819 
3⁄1 8141 
342 BIAS 
33 BIAS 
Hb В1А7 
WS B148 
346 

ЭТ 8148 
36 8140 
HA RAE 
350 

351 8181 
352 #183 
353 6186 
354 R187 
35 BIRA 
356 8188 
357 ВКС 
358 В1ЁР 
350 “1C0 
жа BICI 
31 81C5 
%2 RICA 
33 8106 
Bh RICO 
355 8100 
Ka 6101 
3&1 8102 
Hb 8103 
354 8104 
310 8105 
318106 


03 [LL 
23 NK 
8 
3AF081 LDA 
88 CHP 
C26F81 JN? 
t POP 
01 POP 
C1 POP 
F1 POP 
ca RET 
F5 VERIFY PUSH 
t5 PUSH 
05 PUSH 
£5 PUSH 
1683 ү! 
1Е90 AVI 
COC8D8 CALL 
s 
ЗАЕЕВА LDA 
61 HOY 
2500 и 
010040 Lu 
0A NEXIV — LDAX 
1661 MVI 
50 MOV 
COC8D8 CALL 
в 
1662 Wé 
5С MOV 
COCROB CALL 
в 
1680 Ку! 
COEODB CALL 
BR CHP 
C2C881 JN? 
03 ІК 
93 {NX 
3AF 081 LOA 
88 CMP 
C2A46 1 А? 
3500 ни 
32۴۴81 STA 
C30081 JMP 
ЗЕРЕ BAD NI 
32FFB1 STA 
4 OK POP 
01 POP 
Ce POP 
F1 POP 
C9 RET 
CF UT RST 
04 ОАТА 

EPROMPROGRAMMER 


8 
H 


НЕМК 
8 
RE XTR 
H 


0 
B 
PSW 


PEN 


NEXTV 
4,0 
CHB 
OK 

A FF 
CHS 

H 

0 

8 

P Sw 


1 
4 


VERIFY OF PROGRAMMING 


VERIFY OK 


VERIFY BAD 


JUMP TO UTILITY 





19 
20 
3e 
49 
so 
56e 
79 
ga 
зә 
199 
119 
200 
210 
3eo 
319 
320 
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372 8107 ERD 


евваввевовввяввявававвввева: 
eSYMBOL TABLE a 


пвпевавнааванәввваевавеввае 


BAD 8108 СШ BIFF CHECK 8000 CHECKE BOEA 
DSAOF ВАРА £16 BIB E32 8110 ECB BIFE 
EINDE BO41 END BOEF EPROM OUEU EXOR BIFC 
EXREG B1F5 РАЈЕ 3002 FL 8002 FLEA BIB 
GAPE BUDA. KONTR 003 LEES 0090 LOAD B046 
L00P1 8137 LOOP? 8135 MERR RIED MEMREX BOUEZ 
NEXIB BuAA NEXIC 8015 — NEXIL BOSF МЕХТР 811A 
vum Biet WEIT BIAs — NOPROG B140 — NORES BOAG 
NOTER 803C NOTJET 8083 OK 8100 PROG ВОРА 
PRTA 0050 PRIB 601 PRIC (062 READ 6158 
mp 080 RWOP OBCA SANA AGOGO SCHRYF 0080 
Ur B105 VERIFY 8190 ; 


$ (РС UTILITY V3.3 
)52682 03-1 
BABASIC V1.1 





жижижиижиииижижие: 


KRUIPER 





GOTO 299: КЕМ КЕШІРЕК 

H=GETC:DOT КМО (ХМ), RMDLYM) K:IF HO GOTO 29 
FOR I=#2RB@ TO #2RA:POKE 1.0: МЕХТ 

IF H=16 THEN Y=Y+E 

IF H=17 THEN Y-Y-E 

IF H=18 THEN Х=Х-Е 

IF Hei? THEN Х=Х+Е 

IF SCRN(X,Y)¢3@ GOTO 509:00Т X,Y S 

Z=Z+E:IF 7555 GOTO 20:Р=Р+Е: 2=0 

DRAW Р.Р XM-P,P K:DRAW F,YM-P XM-F,YM-F К 

DRAW Р.Р P,YM-P K:DRAW ХМ-Р.Р XM-P,YM-P K:GOTO 26 
MODE 2:MODE 2:K=10:S=15:COLORG O S K 5 
XMzXMAX: YMzYMAX: X-38: Y232:220:P-0:Ezi1:G0TO 199 
PRINT "VERLOREN МА"; 7+35#Р;" STAPPEN, ‘3 PRINT 
PRINT “SFATIEBALK VOOR NOG EEN KEER."; 
H=GETC:IF H<32 GOTO 324: IF H-32 GÜTO 1@:END 
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OOK INTERESSE VOOR MSX ? 


PIN ON 
RW Card 


бо 


310 


1,00/BF 29. 


„een 
pasword: ee! 
gefsstworwerker 


agicode 
В ertet met МӨ 


Tekensetco 
Benchmarks 


Test & 


7,50% 


Ex. RESET | > 





een abonnement tot 
einde '85 kost slechts 650 Bfr. 


DAinamic VZW Generale Bankmaatschappij Leuven nr. 230-0045353-74 
mededeling : MSX 
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